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Editorial 


La galaxie Apple est décidément en état de mouvement perpétuel ! Steve Wozniak crée une nouvelle 

société spécialisée dans le gadget électronique pour écrans familiaux, quittant ainsi Apple qui. selon lui, 

n'a pas assez développé l'Apple IL 

Avant son départ, lors d’une interview, Steve déclarait que le // n'est plus appelé à être “étendu”: en 

tous cas par Apple. La rubrique Micro-informations apporte de plus amples renseignements sur Apple et 

sa politique. 

De notre côté de l'Atlantique, nous avons de bonnes raisons de pavoiser. Les deux meilleurs logiciels 

de gestion de fichiers sur le Macintosh, parmi une quinzaine de concurrents. sont de création française. 

La ru X a passé un accord avec Hayden Software pour la commercialisation de CX MacBase aux 
tats-Unis. 


A.CI a réalisé une très belle performance en emportant. avec son programme ABCbase. le prix 
convoité de la Pomme d'Or. 


Au niveau du matériel. Apple-Tell réalise un triomphe. ayant réussi à vendre en décembre sa 
1000° carte, et en voyant la Pomme d'Or couronner trois créateurs avant réalisé leurs développements 
autour de cette carte. 


Nous vous proposons dans ce numéro un questionnaire que vous pouvez compléter et nous renvoyer. 
Il y aura 15 abonnements (avec disquettes) à Pom's à gagner. Pour participer au tirage au sort. il vous 
suffit de nous le faire parvenir avant la fin du mois d'avril. Les lecteurs déjà abonnés pourront prolonger 
leur abonnement. ou l'offrir (nous encourageons toujours le prosélytisme...). La liste des gagnants 
pourra être consultée sur notre stand au Sicob Printemps ou à Apple Expo (toutefois. les gagnants 
seront prévenus par courrier). Bien entendu, un seul questionnaire peut être envoyé par lecteur. Cela 
nous permettra de mieux vous connaître et de mieux répondre à vos besoins. , 


Pom's vous propose deux nouveaux produits. Le premier est une disquette de démonstration de Max 
the Globe Trotter. Max the Globe Trotter est un cours de 50 heures d'anglais sur des supports différents 
(livre, cassettes audio et disquette). Il est vendu par Microlingua au prix de 1200 francs. 

Le second, MAX (sans rapport avec le précédent), est un moniteur très étendu pour Apple ‘+. /’e ou 
//c, qui comporte un accès direct aux registres. un mini-assembleur. et bien d'autres choses encore... 


Dans ce numéro, vous trouverez, outre les rubriques habituelles “Courrier des lecteurs” et “Micro- 
informations" que nous devons à Olivier Herz et Jean-Michel Gourévitch, la conclusion de la 
célèbre (et remarquable !) série “Initiation à l'assembleur”. réalisée par Gérard Michel. Gérard nous 
rs aussi une très utile routine (en assembleur. bien sûr...) destinée aux transferts de tableaux de 
variables. 

Pour rester au chapitre “initiation. Laurence Tichkowsky, qui fait désormais partie de l'équipe de 
rédaction, débute une série sur le Pascal UCSD qui s'adresse à tous les utilisateurs d ‘Apple. quel que 
soit leur matériel. 

Alain Bellegarde met à notre disposition un programme d'animation de tables de formes. alors que 
François Sermier vous propose de transformer (sans fer à souder !} votre Apple /’e en Apple II+. 
Avec un fer à souder cette fois, les utilisateurs de cartes 80 colonnes munies d'une sortie vidéo pourront 
modifier cette dernière afin ne plus avoir à changer les branchements pour passer de 80 à 40 colonnes. 
ceci à condition de bien respecter les instructions que communique Eric Pascual. 

Pour les utilisateurs d'imprimante Epson. Alexandre Avrane à écrit un programme de copie d'écran 
en assembleur, pendant que de son côté Jean-François Rabasse nous concoctait un mini-éditeur 
Basic. Vous trouverez aussi un programme écrit par François Fleury, qui effectue la conversion de 
valeurs numériques en leur équivalent en ‘‘toutes lettres” 


Malgré la densité des informations destinées aux utilisateurs d'Apple IL. les possesseurs de Macintosh ne 
sont pas oubliés. En effet. Jean-Luc Bazanegue propose un ‘Catalogue sur imprimante” et Ma- 
rianne Sutz vous donne la marche à suivre pour ajouter deux nouvelles fonctions au Basic Microsoft 
Ces deux programmes font largement appel au langage machine 68000. processeur qui pourrait bien 
devenir le standard de la micro. 

Nombreux sont ceux qui ont souligné l'intérêt pédagogique des articles Mac. bien que ne possédant ni 
Mac ni carte 68000 sur Apple Il ou /’. Effectivement. il ne nous était pas apparu que. même sans Mac. 
on peut être passionné par le 68000. 


En ce qui concerne les disquettes Macintosh. et après quelques mois d'expérience. nous avons décidé 
de publier une disquette Mac par numéro. au prix de 80.00 F. Cela ne fait pas beaucoup plus cher 
qu'une disquette vierge et vous évitera de longues heures de saisie. Bien entendu la disquette regrou- 
pant les programmes des numéros 14 à 16 reste disponible à son prix habituel 
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Transfert rapide de tableaux 


Gérard Michel 


Dans le Pom's 12, nous vous avions 
présenté une petite routine en lan- 
gage machine, appelée au moyen de 
l'ampersand, qui permettait d'effacer 
un tableau de variables en mémoire 
et d’incrémenter ou décrémenter le 
nombre d'éléments dans un tableau 
à une seule dimension. 

Nous vous en proposons ici une se- 
conde, complémentaire de la précé- 
dente, qui permet de copier rapide- 
ment les valeurs des éléments d’un 
tableau dans un autre, sans passer 
par des boucles Applesoft, et ce 
quelle que soit la nature du tableau, 
dès lors que le tableau de départ et 
celui d'arrivée sont de même type. 


Pour plus de commodité, nous dési- 
gnerons par T1, T1% ou T1, le 
nom du tableau original (qui peut 
donc s'appeler en fait A$, BS$, F%, 
HH...) et par T2, T2% ou T2$ le ta- 
bleau ”’duplicata”. 


Syntaxe 


L'appel de la routine se fait par le 
biais d’une indirection dans la routine 
CHRGET ($B1), utilisée par l’inter- 
préteur Applesoft pour lire les carac- 
tères d’un programme. 

Le crochet fermant (]) servira de ca- 
ractère d'identification des instruc- 
tions de transfert de tableaux. C'est 
lui qui indiquera à la routine si l’ins- 
truction la concerne ou si la main 
doit être rendue à l’Applesoft. En 
outre, pour assurer un fonctionne- 
ment correct, le ] doit toujours être 
précédé de deux points (:) dans une 
ligne de programme, même s'il se 
trouve en tout début de ligne. 

Par ailleurs, la définition préalable 
des deux tableaux (par DIM ou di- 
mension par défaut) est indispensa- 
ble pour l'emploi des instructions ci- 
dessous. 


Copie pure 
et simple 


e :]JS TI,T2 
e :]S T1%,12% 
e :]S T1$,T2$ 


Tous les octets composant le contenu 
de T1 (stockés dans la zone réservée 
aux variables dimensionnées) sont 
recopiés à l'identique aux adresses 
correspondant au contenu de T2. 

Les deux tableaux doivent être exac- 
tement de même taille (même nom- 
bre de dimensions et même nombre 
d'éléments par dimension). Il s’agit 
‘donc d'effectuer un MOVE de la 
zone de mémoire définissant T1 dans 
celle allouée à T2. 


Pour les tableaux de réels ou d’en- 
tiers (T1 ou T1%), l'instruction JS 


réalise en T2 ou T2% une copie to- 
talement indépendante de l'original, 
puisque c'est la valeur effective de 
chaque élément qui se trouve sto- 
ckée dans la zone des tableaux. On 
peut ainsi, par exemple, modifier en- 
suite la valeur de T2%(4) sans altérer 
pour autant celle de T1%(4), et réci- 
proquement. 


Pour les tableaux de chaînes de ca- 
ractères, en revanche, ce ne sont pas 
les chaînes elles-mêmes qui sont sto- 
ckées dans la zone des tableaux, 
mais leurs longueurs et leurs adres- 
ses. Par ”]S T1$, T2$”, on copie 
donc en T2$ les paramètres définis- 
sant les chaînes de T1$, reliant ainsi 
une même chaîne à deux tableaux 
différents, sans rendre la copie indé- 
pendante de l'original. Si l’on modi- 
fie alors le contenu de T1$(10), par 
exemple, on change celui de 
T2$(10) qui reste automatiquement 
identique à T1$(10), et réciproque- 
ment. 

Ce type de manipulation présente 
l'avantage de ne pas encombrer la 
mémoire avec des duplicatas de 
chaînes lorsqu'ils ne sont pas réelle- 
ment utiles. C’est notamment le cas 
pour une routine Applesoft d’affi- 
chage ou d'impression de tableaux 
alphanumériques, appelée en plu- 
sieurs endroits d’un programme par 
GOSUB pour traiter des tableaux dif- 
férents (voir à ce propos l'exemple 
simplifié donné en première illustra- 
tion dans le programme de démons- 
tration listé en fin d'article). 

Toutefois, il faut se méfier alors des 
routines de nettoyage - mémoires qui 
ne sont pas prévues pour traiter le 
cas de chaînes adressées dans deux 
variables distinctes et donnent des ré- 
sultats incohérents. En conséquence, 
il convient de toujours détruire le du- 
plicata après usage, au moyen de la 
routine DIM.VAR.OBJ du Pom's 12, 
dont le code objet est fourni en an- 
nexe (instruction &Nom du tableau). 


Copie et duplication 
des chaînes 


e :]D TI$,T2$ 


Même traitement initial que ci-dessus. 
Les chaînes de T1$ sont ensuite co- 
piées, en un autre endroit de la mé- 
moire libre, et affectées à T2$ qui 
devient ainsi indépendant de T1$. 
Au prix d’un encombrement mé- 
moire en rapport, on réalise alors 
une véritable copie de l'original et de 
ses valeurs, du même type que celle 
obtenue par des instructions T2$ (...) 
= T1$ (...). 

Là encore, T1$ et T2$ doivent être 
de même taille. 





Copie de dimension 

e :]T T1,T2,i,,.,/,x,V,..,/ 

eo :]T T1H,T2%;i,j,.,/,x,9,..,/ 
© :]T T1$,T2$,i,j,.,/,x,V,.,/ 


L'instruction JT permet de copier les 
valeurs de tous les éléments de la di- 
mension la plus profonde de T1 dans 
la dimension la plus profonde de T2, 
avec duplication des chaînes s'il 
s'agit d’alphanumérique, en fonction 
de la valeur donnée pour les indices 
de niveau supérieur. 

Ti et T2 peuvent n'avoir pas le 
même nombre de dimensions, dès 
lors que la dimension la plus pro- 
fonde de T2 comporte un nombre 
d'éléments supérieur ou égal à celui 
de la dimension équivalente de T1. 


Exemples 


10 DIM A(10,5,30),B(30) 

20 :]T A,B,2,3,/,/ 

Copie les valeurs de A(2, 3, O) à 
A(2, 3, 30) en B(0) à B(30) 

10 DIM comme ci-dessus 

20 :]T B,A,/,8,3,/ 

Copie les valeurs de B(0) à B(30) en 
A(8, 3, 0) à A(8, 3, 30) 

10 DIM BB$(10,10),C$(10,10,20) 
20 :]T BB$,C$,4,/,2,5,/ 

Copie de BB$(4, 0) à BB$(4, 10) en 
C$(2, 5, 0) à C$(2, 5, 10) 


La valeur des indices de niveau su- 
périeur peut également être donnée 
sous forme de variables ou d’expres- 
sions numériques (voir programme 
de démonstration). Evidemment, la 
valeur de l'indice pour la dimension 
la plus profonde n'est jamais indi- 
quée, puisque le transfert porte tou- 
jours sur tous les éléments de cette 
dimension. 


Mode d’emploi 


Vous pouvez suivre une procédure 
comparable à celle donnée au début 
du programme de démonstration : 


— Chargement de la routine de 
transfert ST.3; 

— Chargement du fichier INTER qui 
place l’indirection dans CHRGET et 
oriente sur ST.3 (d'où la nécessité de 
charger préalablement cette der- 
nière); 

— Chargement de DIM.VAR.OBJ et 
initialisation du vecteur &. 


Après ces initialisations, vous pouvez 
utiliser sans problème les instructions 
de transfert dans vos programmes 
Applesoft. 

Pour revenir au Basic standard”, il 
suffit de charger le petit fichier 
CHRGET, qui rend à la routine 
re il dc en $B1 son aspect ini- 
tial. 
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Précisions sur 
la structure 
des tableaux 


Rappelons brièvement les éléments 
les plus simples, déjà largement 
commentés par ailleurs, et dans le 
Pom's 12 en particulier. 


La représentation d’un tableau en 
mémoire commence toujours par : 

— Deux octets pour son nom. 

— Deux octets (poids faible / poids 
fort) pour le nombre total d’octets 
occupés par le tableau. 

— Un octet pour le nombre de di- 
mensions. 

— Deux octets par dimension (poids 
fort / poids faible) pour indiquer le 
nombre de ses éléments. On trouve 
d’abord le nombre d'éléments de la 
dimension la plus profonde et on re- 
monte ensuite jusqu’à la première, 
qui occupe ainsi les deux octets pré- 
cédant le contenu du premier élé- 
ment du tableau. 


Pour calculer l'adresse du premier 
élément d'un tableau à N dimen- 
sions, il faut donc ajouter ((2 x N) + 
5) à l'adresse du début du tableau 
(premier caractère du nom) dans la 
zone de stockage pointée par $6B — 
$6C. 

Chacun de ces éléments occupe 2 
octets (valeur entière) dans un ta- 
bleau d'entiers, 3 octets pour des 
chaînes (longueur et adresse de la 
chaîne), et 5 octets pour les réels 
(format flottant compacté). 


Le problème se complique un peu 
en ce qui concerne le mode de sto- 
ckage de ces éléments, c’est-à-dire 
l’ordre dans lequel ils sont rangés”. 

Le principe consiste en un classe- 
ment hiérarchisé dans l’ordre crois- 
sant des indices les plus profonds. 
Prenons l'exemple d'un tableau à 4 
dimensions (A,B,C,D), dont la valeur 
des indices respectifs sera notée a, b, 
c, d. En partant du début du tableau 


dans l’ordre suivant : 

— Tous les éléments d'indice d = O, 
avec d’abord tous ceux d'indices c = 
d = O0, parmi lesquels viennent 
d'abord tous ceux d'indices b = c = 
d = O0, en tête desquels on trouve 
bien sûr l'élément d'indice a = b = c 
= d=0. 

Cela nous donne, pour le tout début 
du tableau et en résumé, le classe- 
ment: (0,0,0,0) - (1,0,0,0) - 
(2,0,0,0) … (A,0,0,0) - (0,1,0,0) - 
(1,1,0,0) … (A,1,0,0) - (0,2,0,0) - 


(1,2,0,0) … (A,2,0,0) … (A,B,0,0) - 
(0,0,1,0) - (1,0,1,0) … () … (A,B,1,0) 
- (0,0,2,0) … () … (A,B,C,O). 


— Viennent ensuite les éléments d’in- 
dice d = 1, avec la même hiérarchie 


pour les indices supérieurs: de 
(0,0,0,1) à (A,0,0,1), puis (0,1,0,1) à 
(A,B,0,1), puis de (0,0,1,1) à 
(A,B,C, 1). 


— Et ainsi de suite jusqu’à, enfin, la 
série des éléments d'indice d =D, de 
(0,0,0,D) à (A,B,C,D). 


Tout cela n'est pas particulièrement 
simple, il est vrai, mais conduit à des 
formules plus claires pour accéder 
aux éléments correspondant à une 
valeur donnée des indices de niveau 
supérieur et obtenir ainsi la série des 
éléments de la dimension la plus pro- 
fonde pour cette valeur. 

Il nous faut connaître l'adresse du 
premier élément appartenant à la 
série (indice = 0 pour la dimension 
la plus profonde) et la distance” qui 
sépare deux élements consécutifs 
dans cette série. 


Pour l'adresse du début de série, le 
problème consiste à calculer le déca- 
lage en octets qui sépare le premier 
élément qui nous intéresse du tout 
premier élément du tableau. Pour 
notre exemple de dimension 
(A,B,C,D), le premier élément d'in- 
dice (a,b,c,0) se trouve à : 

D = a + (Axb) + (AxBxc) 

éléments du tout premier (0,0,0,0). 
Pour convertir ce décalage en octets, 


d'octets par élément (2, 3 ou 5). En 
ajoutant ensuite ce décalage à 
l'adresse de (0,0,0,0), on obtient 
l'adresse de (a,b,c,O). 

La distance entre deux éléments est 
donnée par le produit des dimen- 
sions de niveau supérieur (AxBxC), 
lui-même multiplié par le nombre 
d’octets par élément. 


De façon générale, pour un tableau à 
n+1l dimensions (D1, D2 … ,Dn, 
Dn+1), dont chaque élément occupe 
OC octets, et pour des valeurs V1, 
V2 … Vn des indices de niveau supé- 
rieur, on obtient la série des éléments 
de la dimension la plus profonde par 
les formules : 

e Décalage en éléments = D = 

V1 + 


D1xV2 + 
D1*xD2+xV3 + 
EP CE + 
D1xD2xD3 … *Dn-1xVn 
e Décalage en octets = DxOC = 


e Adresse de l'élément (V1, V2, …. 
Vn, 0) = adresse de (0, 0, … O, 0) 
+ DD 

e Distance entre deux éléments de 
la série = DI = 
(D1xD2*...*Dn)*OC 


Partant de cette structure, le principe 
de la routine de copie des dimen- 
sions les plus profondes consiste à : 

e Calculer pour les tableaux T1 et 
T2 les paramètres DD (puis 
bin du premier élément) et 

e Transférer ensuite les éléments un 
par un, en passant au suivant par 
ajout de la valeur de DI dans l’ori- 
ginal et de celle de DI dans la 
copie. Le nombre d'éléments à 
copier est indiqué par la dimen- 
sion la plus profonde de T1. 

Les informations complémentaires 


sont fournies dans les commentaires 
du programme source. 





vers la fin, on trouvera les éléments il suffit de multiplier D par le nombre a 
Source Big Mac 15 S3 = FE 
16 S4 = $FF 
17 CMP  £$5D 3 CARACTERE 

1 x € € À XX D NE NN EE 6 6 6 6 6 EE M EE EE € EX 6 "g" ? 
2 * * 18 BEQ KSO 
3 * COPIE RAPIDE DE TABLEAUX * 19 CMP £534 
4 * CODE = ST.3 % 20 BCC KSi 
5 * * 21 KS3 RTS 
6 HE NN HE NN HE MED NE EDEN DE DE DE JE ÉD DEEE DEEE EEE 22 KS1 JMP $BE 
7 * 23 KS0O JSR $Bi 
8 ORG $8DE0 24 CMP £’T° 
9 01 = $EE ; VARIABLES 25 BNE  SSO 

DE LA MULTIPLICATION 26 JMP  TTO 
10 O2 = $EF :02-01 (PO 27 SS0 CMP £’D° 

I1DS FORT / POIDS FAIBLE) MULTIPLIE 28 BNE KS2 

PAR M2-M1 29 JMP  KS4 
11 Si = $F9 ;AVEC RESU 30 KS2 CMP £’5S’ 

LTAT DANS S4-53 31 BNE KS3 
12 S2 So $FA 3:ET COPIE 32 SD JSR SR 

DE 02-01 DANS S2-S1 33 JMP  KSS5 
13 Mi = $FC 34 SR JSR $B1 
14 M2 F $FD 35 JSR $F7D9 ; RECHERCHE 
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KSS 


KS4 


TABLEAU 


DE TABLEAU 
LDA 
OINTE SUR LE 


JSR 


E "MOVE* 
ENSI ONS 


TS DU TABLEAU 


MOVE) 


ADC 


ADC 


JSR 
CHAINES —--}» 
1ER TEMPS 

LDA 
STA 
LDY 
CLC 
ADC 
STA 


LDA 


STA 


LDY 


POINTE PAR $B8-$B9 
$?7B 5$59B-$9C P 
NOM DU TABLEAU 


$F7D9 ; RECHERCHE 


£4 3ON FAIT L 


À PARTIR DU NOMBRE DE DIM 


$3C 

$7 

£0 

$3D 

£2 

(#6) ,Y ;NBRE OCTE 
-5 (POUR CALCUL FIN 


$3C 
DU *MOVE* 


; CALCUL AD 


$9B 3 ADRESSE D 


MOVE 


SD ; COPIE DES 
MOVE COMPLET DANS UN 


($9B) ,Y 
$6 5$6-$7 = À 


DRESSE FIN DU TABLEAU + 1 


$C ; (ADRESSE 


+ SON NOMBRE D’OCTETS) 


$CF 


(#98) ,Y 
$7 
£4 ; CALCUL DE 


L'ADRESSE DU 1ER ELEMENT DU TABLE 


AU 


LDA 
ASL 
CLC 


($CE) ,Y 


135 


140 
141 


142 
143 
144 
145 
146 
147 
148 


149 
150 
151 
152 
153 
154 


155 
156 


ADC 
BCC 
INC 
CLC 


TO ADC 


$CE-$CF 
5) 
STA 
BCC 
INC 


Ti JSR 


JMP 


TR LDY 


LDA 


£S 
TO 
$CF 


$CE ; REMIS EN 


(DEBUT + (NBRE DIM * 2) + 


$CE 
T1 
$CF 
TR 


T4 
£2 


C$CE) ,Y ; POIDS FOR 


T DE L’ADRESSE DE LA CHAINE 


STA 
DEY 
LDA 


$8 


C$CE) ,Y ; POIDS FAI 


BLE DE L’ADRESSE DE LA CHAINE 


STA 
GUEUR DE LA 
LDA 
SEC 
sBC 
STA 


T2 LDA 


JSR 


$70 5$6F-$70 E 


ADRESSE CONTENUE EN $é6 


$72 ;MOINS LON 


CHAINE 


$6F 


$ESE2 3DEPLACE L 


À CHAINE POINTEE PAR X-Y 


LDY 


£2 ;EN POSITI 


ON POINTEE PAR $71-$72 


LDA 

STA 
LLE ADRESSE 
T2) 


T4 LDA 


$70 
($CE) ,Y ;MAJ NOUVE 
CHAINE DANS 2EME TAB ( 


$6F 
($CE) ,Y 


$CE ; CALCUL AD 


RESSE ELEMENT SUIVANT S’IL EXISTE 


CLC 


T3 LDA 


$7 ;ARRIVE À 


LA FIN DU TABLEAU 


TTO JSR 


Ti 
$CE 
$é 
T1 
$B7 


SR 3 RECHERCHE 


DES DEUX TABLEAUX Ti ET T2 


STA 


$BD ; CALCUL DU 


NBRE D’OCTETS PAR ELEMENT (S, 3 0 


U 2) 
LDY 
LDA 


£1 
($6) ,Y 
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TTO0 


DIM LA 


TT2 
TT1 


7=NBRE ELE. 


Ti 


TT100 


TT40 


TTO0 
LDA £3 
$BD 


(#6) ,Y 
TTO0 

$BD 

LDY £5 

(#6) ,Y ;VERIFIE : 
PROFONDE DE T2 

$07 ;SUP. OÙ E 
PLUS PROFONDE DE T1 
($CE) ,Y 

$07 

TTI 

TT100 

$DEC9 


«#6 ,Y 
$Dé ;ET $D6-$D 
DANS DIM PLUS PROFONDE 


STA 


STA $ED ; DONNERA N 


BRE DE DIM MOINS 2 EN FINAL 


TT4 
RESENCE 
IVANT 


./° ? 


JSR $DEBE 
DE Le 


3VERIFIE P 
ET LIT CARACTERE SU 
CMP  £$CB ; TOKEN DE 
BEQ TT3 


JSR $DDé67 ; EVALUE EX 


PRESSION POINTEE PAR $B8-$B9 


JSR $E752 3; CONVERT IT 


EN ENTIER À 2 OCTETS RANGE EN $50 


—$51 


VALEUR 


TT3 


LDA $ED 
ASL 

TAX 

LDA #50 
STA D1,X 
DE L’INDICE 
LDA #51 


; STOCKE LA 


INC $ED ;>VERIFIE N 


BRE D'’INDICES / NOMBRE DE DIMENSIO 


NS 


TTS 
NOMBRE 


IM DANS 
Fr 79 


DEC 
D’INDICES 
DEC $ED 
LDA $ED 
BMI TT9 ;1 SEULE D 
LE TABLEAU (DONC RIEN AVAN 


;RETOUR AU 
"UTILE" 


LDX £i 

LDA ($6),Y 
TAY 

DEY 

TYA 

ASL 

CLC 

ADC £5 


TAY 3Y POINTE 


SUR NBRE ELEMENTS DANS LA 1ERE DIM 
Pom's n° 17 


21é 
217 
218 


219 
220 
221 
222 
223 
224 
225 


226 
227 
228 
229 
230 
231 
232 
233 
234 


235 
236 
237 


238 


239 


240 
241 


246 
247 
248 


249 


250 
251 
252 
253 


254 
255 
256 
257 
258 


259 
260 
261 
262 
263 
264 
265 
266 


267 
268 
269 
270 
271 
272 


TT10 


STY $EB 
STY $EC 


LDA D1,X 3VERIFIE VU 


ALEUR DE L’INDICE < NBRE ELEMENTS 


DANS LA 


TT8 
TT7 


DIM 

(#6) ,Y 
TTé 
TT7 
TT2 


D1,X 


(#6) ,Y 
TT8 


CPY £5 ; TOUS INDI 


CES TRAITES ? 


TT9 


DECALAGE PREMIER ELEMENT 


BNE TTI0 
LDX £0 
STX #18 :$18-$19 = 
"UTILE" 


STX $19 ; PAR RAPPO 


RT AU 1ER ELEMENT DU TABLEAU 


DISTANCE ENTRE DEUX ELEMENTS 


LES" 


=> DECALAGE 


STX #18 :$1A-$1B = 


“UTI 


$ED 
TTI1 


#1A 3SI 1 DIM 
0 ET DISTANCE = 1 FOIS 


LDA £7 3NBRE OCTE 


TS PAR ELEMENTS 


JMP TTI8 31ER ELEME 


NT EST À 7 OCTETS DU 1ER CARACTERE 


DU NOM 
TTi1 
X'ET-Y; 


CE = 
T 


BNE TTI2 
LDY $EB 
LDA ($6),Y 
DECALAGE = 
STA #18 


;5SI 2 DIM 
INDICE x 
;ET DISTAN 


X FOIS NBRE OCTETS PAR ELEMEN 


INY 
LDA ($6),Y 
STA $#1A 


LDA £9 3:1ER ELEME 


NT EST À 9 OCTETS DU 1ER CARACTERE 


DU NOM 


TT12 


STA 02 3NBRE ELEM 


ENTS DANS 1ERE DIM (XX) DANS 02-01 


TTi4 


ATION PAR NBRE ELEMENTS 


INY 


>MULTIPLIC 
DE LA DIM 


SUIVANTE 


;MAJ DU RE 
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273 
274 
275 
276 
277 


278 
279 


280 
281 
282 
283 
284 
285 


286 
287 
288 
289 
290 


291 
292 
293 
294 
295 
296 
297 
278 


299 
300 
301 


302 
303 
304 
305 
306 
307 
308 
309 


310 
311 


312 


313 
314 
315 


316 


317 


318 
319 
320 
321 


322 


323 
324 
325 
326 
327 


328 


329 
330 


SULTAT EN $1A-$1B 


BEQ TT13 


;ON ARRETE 


À L'AVANT DERNIERE DIM (4 7 OCTET 


S DU BORD) 
LDA 
STA 01 


3 RESULTAT 


EN 02-01 ET MULT PAR DIM SUIVANTE 


$1B 


TT13 


LOX £2 
A LA VALEUR 
ME DIM 
TTié6 LDA D1,X 
STA Mi 
INX 
TXA 
PHA 
LDA D1,X 
STA M2 
JSR  MULT 
ATION PAR VALEUR DE 
LA DIM SUIVANTE 

CLC 

LDA S3 

ADC #18 
ION DES 
+518 


CPY £7 


TTIS 
(#6) ,Y 


DERNIERE DIM ? 


;X DANS 02 


; COMMENCE 


DE L’INDICE POUR LA 2E 


;MULTIPLIC 


L’INDICE POUR 


; ACCUMULAT 


RESULTATS INTERMEDIAIRES 


;ARRIVE À 


3: DIM SUIVRA 


LDA 


M2 


(#6) ,Y 
M1 
s1 3S1-S2 CON 


TIENT TOUJOURS LE PRODUIT DES DIM 


STA 


O1 3 PRECEDENT 


ES, REMIS EN 01-02 


LDA 
STA 
JSR 
LDA 


S2 

02 

MULT 

s3 ; PRODUIT D 


ES DIM REMIS EN 01-02 


STA 
URER SA 


CONSERVATION EN 


oi ; (POUR ASS 
S1-S2) 
54 


; PREND VAL 


EUR DE L'’INDICE SUIVANT 


JMP 


TTié ; POUR CONT 


INUER LES MULTIPLICATIONS 


TT15 PLA 


LDY 


$EB ;ON VA SE 


331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 


342 
343 


344 
345 
346 
347 
348 
349 
350 


351 
352 
353 
354 
355 
356 
357 
358 
357 
360 
361 


362 
363 
364 
365 
366 


367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 


381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 


PLACER SUR LE TOUT PREMIER ELEMENT 


DU TABLEAU 


TT18 


TT17 


IM ? 
TT170 


LEUR DU 


;1 SEULE D 


£0 
D1,X ; AJOUTE VA 
INDICE AU DECALAGE 
$18 


£0 : MULTIPLIE 


DECALAGE PAR NBRE D’OCTETS PAR EL 


EMENT 


ADC 
+ ADR. 
TILE* 


TT171 LDA 


1ER ELE. 


s3 
$é ; DECALAGE 
——) 1ER ELEMENT “U 


+$é 
s4 
$7 
$7 
£0 3MULTIPLIE 


DISTANCE PAR NBRE D’OCTETS PAR EL 


EMENT 


TT20 LDA 


$é 3 SAUVE GARD 


E DES RESULTATS OBTENUS POUR LE 1E 


R TABLEAU Ti 


S PARAMETRES 
U T2 


; CALCUL DE 
POUR LE SECOND TABLEA 
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393 STA #6 CHAINES UNE À UNE AVEC MAJ DANS T 
394 LDA $CF 2 
395 STA #57 435 DEC $%#1E 5$1E-SIF = 
376 JSR #$B1 NBRE DE CHAINES À COPIER 
397 JSR TTA40 436 BNE TT26 
398 LDA $6 3 SAUVE GARD 437 LDA $1F 
E POUR COPIE DES CHAINES SI NECESS 438 BEQ FIN 
AIRE 439 TT26 LDA $#$1E 
399 STA $CE 440 CMP  £$FF 
400 LDA #57 441 BNE TT27 
401 STA $CF 442 DEC $%1F 
402 TT25 LDY £0 443 TT27 CLC >AJOUTE DI 
403 TT21 LDA  ($8),Y ; TRANSFERT STANCE DANS T2 POUR PASSER À LA CH 
ELEMENT PAR ELEMENT AINE SUIVANTE 
404 STA ($6),Y 444 LDA $CE 
405 INY 445 ADC #1A 
406 CPY  $BD 446 STA $CE 
407 BNE TT21 447 LDA $CF 
408 DEC $Dé :$D6-$D7 = 448 ADC #18 
NBRE ELEMENTS À TRANSFERER 449 STA $CF 
409 BNE TT22 450 JMP  TT28 
410 LDA $D7 451 FIN JMP  #$B1 
411 BEQ TT23 452 MULT LDA O1 ; SOUS -ROUT 
412 TT22 LDA  $Dé INE DE MULTIPLICATION 
413 CMP  £$FF 453 STA Si! 516 BITS P 
2e ss ie AR 16 BITS / RESULTAT SUR 16 BITS 
4ié TT24 CLC ;AJOUTE DI ps ne .. 
STANCE DANS Ti 456 LDA £0 
417 LDA #8 457 STA 53 
418 ADC $1C 458 STA S4 
res x . 459 LDX £ié 
5 Re So ue 
422 
423 cLC SAJOUTE DI pe 25 ui 
STANCE DANS T2 464 LDA oi 
424 LDA $é6 465 ADC 53 
425 ADC $1A aéé STA S3 
426 STA $6 467 LDA 02 
427 LDA #7 468 ADC S4 
428 ADC $1B 469 GTA C4 
429 STA $7 470 BSO ASL oi 
430 JMP  TT2S 471 ROL 02 
431 TT23 LD $BD 472 DEX 
432 CMP £3 > TABLEAU D 473 BNE BS1 
E CHAINES DE CARACTERES ? 474 RTS 
433 ENE FIN 475 Di DS 180 ;ZONE DE S 
434 TT28 JSR TR ; COPIE DES TOCKAGE DES VALEURS DES INDICES 
120 :5SB$,A$: GOSUB 30:5SC$,A$: GOSUB 30: 
TEST. ST3 SSD$,A$: GOSUB 30:5SE$,A$: GOSUB 3 
0:6SF$,A$: GOSUB 30 
1 PRINT CHR$ (4)"BLOAD ST.3": PRINT CH | 130 CLEAR 
R$ (4)"BLOAD INTER.3 135 DIM AZ(100) ,A(200) ,A$(300) ,AZ/(100), 
5 HIMEM: 36319 A2(200) ,A2$(300) 
6 PRINT CHR$ (4)"BLOAD DIM.VAR.OBJ": PO | 140 PRINT : PRINT “INITIALISATION EN COU 
KE 1013,76: POKE 1014,7 *% 16 + 12: RS": FOR I = 0 TO 100:A2CI) = I:A( 
POKE 1015,9 x 16 + 2 1) = 100 * I: NEXT : FOR I = 101 T 
10 DIM A$(300) ,B$(300) ,C$(300) ,D$#(300),E O 200:ACI1) = 100 * I: NEXT : FOR I 
$(300) ,F$(300) = 0 TO 300:A$C1) = “ELEMENT * + 
12 TEXT : HOME STR$ (I): NEXT ‘ 
20 GOTO 95 145 PRINT “FIN INIT* 
30 FOR I = 0 TO 300: PRINT A$(I): NEXT : 150 :5SAZ,A2/Z:8SA ,A2:SDA$ ,A25 
GET 2$: PRINT : & A$: DIM A$(300) 170 FOR I = O TO 100: PRINT AZ(I) ,A2X(C1) 
: RETURN : NEXT : PRINT : GET 2$: PRINT : F 
95 PRINT "INITIALISATION TABLEAUX OR 1 = O TO 200: PRINT A(I1),A2(1): 
100 FOR I = 0 TO 300:B$(1) = "TABLEAU B" NEXT : PRINT : GET Z$: PRINT 
+ STR$ (I):C$CI) = "TABLEAU C" + 175 & AZ: & A2: & À: & A2 
STR$ (1):D$CI1) = *TABLEAU D* + 177 PRINT "MODIFICATION DE A2$": PRINT : 
STR$ (ID:E$C1) = "TABLEAU E" + ST FOR 1 = 0 TO 300 STEP 10:A2#(1) = 
R$ CID:F$CI1) = "TABLEAU F" +  STRS$ A2$CI) + "MOD": NEXT 
C1): NEXT 178 FOR 1 = O TO 300: PRINT A$(I),42$(1) 
110 PRINT : PRINT “FIN INITIALISATION": : NEXT : PRINT 
PRINT 180 & AS: & A25 
Pom's n° 17 
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GORE CRE EE 
#3 + 2 û Eee à 8 ex 


CE 


sHBbr nds 











190 DIM X1$#(150): DIM X2$5(2,2,150) 240 FOR I = O0 TO 40:T1Z(1,1,1,1,1,1) = 1 
200 PRINT "INITIALISATION X1$": FOR I = O0 * I: NEXT 
O TO 150:X1$C1) = "X1$ NO *“ + STR 245 PRINT "FIN INIT 
$ (I): NEXT 250 FOR À = O0 TO 2: FOR B = O0 TO 2: FOR 
205 PRINT “FIN INIT®* C = O0 TO 2:STT1%,7T2%,1,1,1,1,1, / 
210 FOR J = O0 TO 2: FOR Z = O0 TO 2:STX1+# A3B,C, / : FOR 1 = O0 TO 50: PRINT 
,X2%, / ,Jd,2, / : FOR I = 0 TO 150 T2A(A,B,C,I1D,A" "B" "C" "I: NE 
PRINT X2#(J,2,1),J"  "2Z* “I: NE XT : GET Z2$: PRINT : NEXT C,B,A 
XT : GET 2$: PRINT : NEXT : NEXT 270 PRINT : FOR À = 0 TO 2: FOR B = 0 TO 
220 & X1#: & X2$: DIM TI1ZC1,1,1,1,2,40), 2: FOR C = 0 TO 2: FOR D = 0 TOS5 
T22(2,2,2,50) 0: PRINT T2Z(A,B,C,D)" *;: NEXT D 
230 PRINT “INITIALISATION TIZ": PRINT :C;,B,A 
6 : 8FE8- 4C CO 8F A4 EB 84 EC B1 #BLOAD DIM.UAR.0BJ 
Récapitulation 8FFO- 06 85 EF C8 Bi 06 85 EE 
8FF8- A2 02 BD 61 91 85 FC E8 
*8DE0.9215 9000- 8A 48 BD 61 91 85 FD 20 *x727C.940C 
9008- 36 91 18 AS FE 65 18 85 
8DE0- C9 SD FO 08 C9 34 90 O1 9010- 18 AS FF 65 19 85 19 Cé 927C- À4 6B 84 18 
8DE8- 60 4C BE 00 20 Bi 00 C9 9018- EC Cé EC A4 EC CO 07 FO 9280- A4 é6C 84 19 A0 05 84 08 
8DF0- 54 DO 03 4C E2 8E C9 44 S020- 22 Bi 06 85 FD C8 Bi 06 9288- A2 00 86 07 86 1B 86 1C 
8DF8- DO 03 4C 64 8E CS 53 DO 9028- 85 FC A5 F9 85 EE A5 FA 9290- 86 1D 86 09 FO 19 20 Bi 
8E00- E7 20 07 8€ 4C 24 8E 20 9030- 85 EF 20 36 91 AS FE 85 9298- 00 DO 04 Eé 1B DO 35 C9 
8E08- Bi 00 20 D9 F7 ÀS 9B 85 9038- EE AS FF 85 EF 68 AA E8 92A0- 24 FO 11 C9 25 FO 33 C9 
8E10- 06 AS 9C 85 07 A0 00 B1 9040- 4C FA 8F 68 A4 EB C8 C8 S2A8- C8 FO 21 C9 C9 F0 20 95 
8E18- B8 C9 2C DO CB 20 Bi 00 9048- 98 18 65 06 85 06 90 03 9280- 06 E8 DO E2 Eé 1D AS 07 
8E20- 20 D9 F7 60 18 A5 06 69 9050- Eé 07 18 AS ED 30 31 A2 92B8- 09 80 85 07 A0 01 B1 B8 
8E28- 04 85 3C AS 07 69 00 85 9058- 00 BD 61 91 65 18 85 18 S2C0- 20 BA 00 FO OF 20 Bi 00 
8E30- 3D AO 02 Bi 06 38 E9 05 9060- E8 BD 61 91 65 19 85 19 92C8- C9 C8 DO 03 4C 50 93 Eé 
8E38- 85 08 C8 Bi 06 E9 00 85 9068- A9 00 85 EF AS BD 85 EE 92D0- 1C 4C 50 93 20 ES 92 4C 
8E40- 09 18 AS 3C 65 08 85 3E 9070- ÀS 18 85 FC AS 19 85 FD 92D8- 11 93 Eé 1D ÀS 06 09 80 
8E48- A5 3D 65 09 85 3F 18 AS 9078- 20 36 91 18 AS FE 65 06 92E0- 85 06 4C B4 92 A0 00 B1 
8E50- 9B 69 04 85 42 AS 9C 67 °080- 85 06 AS FF 65 07 85 07 92E8- 18 CS 06 DO 07 C8 Bi 18 
8E58- 00 85 43 A0 00 20 2C FE 9088- A9 00 85 EF AS BD 85 EE 92F0- CS 07 FO 1C 20 00 93 85 
8E60- 20 B7 00 60 20 01 8E AS 9090- AS 1A 85 FC AS 1B 85 FD 92F8- 19 AS 1A 85 18 4C ES 92 
8E68- 9B 85 CE A0 02 18 71 9B 9098- 20 36 91 AS FE 85 1A AS 9300- A0 02 Bi 18 18 65 18 85 
8E70- 85 06 AS 9C 85 CF C8 71 90A0- FF 85 1B 60 AS 06 85 08 9308- 1A C8 B1 18 65 19 85 1E 
8E78- 9B 85 07 À0 04 B1 CE OA 90A8- A5 07 95 09 AS iA 85 1C 9310- 60 À5 18 85 42 ÀS 19 85 
8E80- 18 69 05 90 03 Eé CF 18 5080- A5 1B 85 1D AS Dé 85 1E 9318- 43 C8 Bi 18 85 08 C8 B1 
8E88- 65 CE 85 CE 90 02 Eé CF 50B8- AS D? 85 1F AS CE 85 06 9320- 18 85 09 20 00 93 AS 1A 
8E90- 20 9é 8E 4C C7 8E A0 02 90C0- AS CF 85 07 20 B1 00 20 9328- 85 3C ÀS 1E 85 3D ÀS 6D 
8E98- B1 CE 85 08 88 Bi CE AA 50C8- 24 8F AS 06 85 CE A5 07 9330- 85 3E A5 6E 85 3F AO 00 
8EAO- 88 A5 70 85 72 AS 6F 38 5000- 85 CF A0 00 Bi 08 91 06 9338- 20 2C FE AS 6D 38 ES 08 
SEA8- F1 CE 85 71 85 6F BO 04 50D8- C8 C4 BD DO F7 Cé Dé DO 9340- 85 éD AS 6E ES 09 85 éE 
8EBO- Cé 72 Cé 70 Bi CE A4 08 90E0- 04 AS D7 FO 25 A5 Dé C9 9348- A6 1B DO 03 20 B1 00 60 
8EB8- 20 E2 ES A0 02 ÀS 70 91 90E8- FF DO 02 Cé D7 18 A5 08 9350- 20 E5 92 A0 04 B1 18 C9 
8ECO- CE 88 AS 6F 91 CE 60 A5 90F0- 65 1C 85 08 AS 09 65 1D 9358- 01 DO Fi 20 00 93 AS 10 
8EC8- CE 18 69 03 85 CE 90 02 90F8- 85 09 18 AS 06 65 1À 85 9360- F0 09 Cé 08 ÀS 08 38 ES 
8ED0- Eé CF A5 CF CS 07 DO B8 9100- 06 ÀS 07 65 1B 85 07 4C 9368- 1D 85 08 AS 1C F0 38 A0 
8ED8- AS CE CS 06 DO B2 20 B7 5108- D2 90 AS BD C9 03 DO 23 9370- 06 Bi 18 38 E9 O1 91 18 
8EE0- 00 60 20 07 8E AS 9B 85 9110- 20 96 8E Cé 1E DO 04 A5 9378- 88 B1 18 E9 00 91 18 A0 
8EE8- CE AS 9C 85 CF A9 05 85 9118- 1F FO 18 AS 1E C9 FF DO 9380- 02 Bi 18 38 ES 08 91 18 
8EFO0- BD A0 01 Bi 06 10 0B A9 0120- 02 Cé 1F 18 AS CE 65 14 9388- C8 B1 18 E9 00 91 18 AS 
8EF8- 03 85 BD 88 B1 06 10 02 9128- 85 CE AS CF 65 1B 85 CF 9390- 1A 48 AS 1E 48 20 00 93 
8F00- Cé BD A0 05 Bi 06 85 D7 9130- 4C 10 91 4C Bi 00 AS EE 9398- 85 43 A5 1A 85 42 68 85 
8F08- Bi CE C5 D7 F0 05 BO 0E 9138- 85 F9 AS EF 85 FA A9 00 9340- 3D 68 85 3C 4C 2E 93 A0 
8F10- 4C C9 DE C8 Bi 06 85 Dé 9140- 85 FE 85 FF A2 10 46 FD 93A8- 06 Bi 18 18 69 O1 91 18 
8F18- B1 CE C5 Dé 90 F2 20 24 9148- 66 FC 90 0D 18 AS EE 65 9380- 88 Bi 18 69 00 91 18 A0 
8F20- 8F 4C A4 90 A9 00 85 ED 9150- FE 85 FE AS EF 65 FF 85 9388- 02 Bi 18 18 65 08 91 18 
8F28- 20 BE DE C9 CB FO 1A 20 9158- FF 06 EE 26 EF CA DO Eé 93C0- C8 BI 18 69 00 91 18 AS 
8F30- 67 DD 20 52 E7 AS ED 0A 9150- 60 FF 00 FF 00 FF 00 FF 93C8- 6E 85 07 85 09 AS 6D 85 
8F38- AA A5 50 9D 61 91 AS 51 9168- 00 FF 00 FF 00 FF 00 FF 9300- 046 18 65 08 85 é6D 85 08 
8F40- E8 9D 61 91 Eé ED 4C 28 9170- 00 FF 00 FF 00 FF 00 FF 93D8- 90 04 Eé 6E Eé 09 A0 00 
8F48- 8F Eé ED A0 04 Bi 06 CS 9178- 00 FF 00 FF 00 FF 00 FF 93E0- Bi 06 91 08 AS 07 CS 1€ 
8F50- ED FO 03 4C 10 8F Cé ED 9180- 00 FF 00 FF 00 FF 00 FF 93E8- DO 09 AS 06 CS 14 DO 03 
8F58- Cé ED AS ED 30 2F A2 01 9188- 00 FF 00 FF 00 FF 00 FF 93F0- 4C 4C 93 Cé 06 AS 06 C9 
eFé0- Bi 06 A8 88 98 0A 18 69 9190- 00 FF 00 FF 00 FF 00 FF 93F8- FF DO 02 Cé 07 Cé 08 AS 
8Fé8- 05 A8 84 EB 84 EC BD 61 9198- 00 FF 00 FF 00 FF 00 FF 9400- 08 C7 FF DO DB Cé 09 4C 
8F70- 91 Di 06 90 10 FO 03 4C $140- 00 FF 00 FF 00 FF 00 FF 9408- E0 93 00 02 00 
8F78- 10 8F C8 CA BD 61 91 D1 91A8- 00 FF 00 FF 00 FF 00 FF 
sF60- 06 80 F4 E6 88 ES ES Le 9180- 00 FF 00 FF 00 FF 00 FF 
8F88- 88 CO 05 DO El A2 00 86 9188- 00 FF 00 FF 00 FF 00 FF x 
8F90- 18 86 19 86 1B AS ED 10 91C0- 00 FF 00 FF 00 FF 00 FF -HAD INTER: 
8F98- 08 E8 86 1A A9 07 4C 49 S1C8- 00 FF 00 FF 00 FF 00 FF 
gFAO- 90 DO 10 A4 EB Bi 06 85 9100- 00 FF 00 FF 00 FF 00 FF RESTE 
8FA8- 18 c8 Bi 06 85 14 AS 09 91D8- 00 FF 00 FF 00 FF 00 FF 00BA 
8FBO- 4C 49 90 86 1A A4 EC B1 91E0- 00 FF 00 FF 00 FF 00 FF 
8FB8- 06 85 EF C8 B1 06 85 EE 91E8- 00 FF 00 FF 00 FF 00 FF 
BFCO- Cé EC Cé EC A4 EC BI 06 91F0- 00 FF 00 FF 00 FF 00 FF *BLOAD CHRGET 
gFCc8- 85 FD C8 Bi 06 85 FC 20 91F8- 00 FF 00 FF 00 FF 00 FF 
8FD0O- 36 91 AS FE 85 1A AS FF 9200- 00 FF 00 FF 00 FF 00 FF *BA . BD 
8FD8- 85 1B AS EC C9 07 FO 0B 9208- 00 FF 00 FF 00 FF 00 FF 
8FE0- A5 1A 85 EE AS 1B 85 EF 9210- 00 FF 00 FF 00 00 00BA- C9 3A BO CA 
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Les pointeurs en 


Le Pascal est un langage qui a fait 
couler beaucoup d'encre et dont on 
parle suffisamment pour éveiller l’in- 
térêt de ceux qui programment. Il 
présente des particularités et offre 
des possibilités de développement 
que l’on ne trouve pas en Basic, en 
Fortran... 

Les avis sont très partagés; certains 
pensent qu'il est réservé aux univer- 
sitaires, pendant que d’autres mettent 
au point des produits comme PFS, 
ABCbase.… 

Le problème n'est pas de trancher 
sur la valeur du Pascal mais d’en 
parler. 


La notion de pointeurs est très spéci- 
fique au Pascal. Elle est importante, 
et permet d'aller plus loin dans la 
connaissance du langage. C'est pour- 
quoi nous lui consacrons, ici, ces 
quelques lignes. 


Les enregistrements 


À la lecture d'un programme, écrit 
en Pascal UCSD, vous avez sûre- 
ment déjà rencontré une déclaration 
de TYPE dans le genre de celle qui 
suit : 
ADRESSE=RECORD 
RUE : STRING; 
CFOS: STRING; 
VILLE:STRING 
END ; 
ELEMENT=RECORD 
NOM: STRING; 
ADF : ADRESSE; 
AGE : STRING 
END ; 


ainsi pour définir la ville où habite 
Monsieur X on écrira, dans le pro- 
gramme principal ou dans la procé- 
dure, l'instruction d'affectation : 


ELEMENT.ADR.VILLE:="PARIS': 


La structure d'un enregistrement est 
un type (RECORD). Les éléments le 
composant sont appelés : champs”, 
ils peuvent être de types différents. 
La notion d'enregistrement est une 
notion récursive. En effet, un champ 
peut être défini comme un enregis- 
trement (dans la déclaration donnée 
ci-dessus, le champ ADR‘ est un 
enregistrement dont l'identificateur 
est ADRESSE”: les champs le 
composant sont des sous-champs). 
Les variables de type enregistrement 
sont les seules qui permettent de dé- 
finir des champs dont les types sont 
différents. Dans notre exemple, nous 
considèrerons des champs de type 
chaîne de caractères (STRING). 


Le système offre à cette structure de 
nombreux avantages. 

Il lui donne la possibilité, grâce à l'in- 
truction WITH, d'alléger l'écriture des 
affectations de chaque champ. Ainsi, 
pour définir les champs composant 
l'engegistrement ADRESSE on 
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écrira : 

WITH ADRESSE DO 

BEGIN 

RUE:=’...'; 

CPOS:="..: 

VILLE:=’... 

END; 

De ce fait, on évitera le préfixage de 
toutes les variables champs et donc 
des erreurs de frappe, malheureuse- 
ment trop fréquentes ! 

On peut aussi définir des enregistre- 
ments à champs variables. Pour ce 
faire, on utilisera l'instruction CASE 
OF; ainsi, la déclaration suivante sera 
autorisée : 


GENRE=CFEMININ,MASCULIN) ; 
PERSONME=RECORD 
NOM: STRING; 
ADR : ADRESSE; 
CASE XX: OF GENRE 
FEMININ:STRING: 
MASCULIN :STRING 
END 
END ; 


Cette notion d'enregistrement est 
grandement liée à celle de fichiers 
tout en restant indépendante. En 
effet, pour créer un fichier de person- 
nes, nous aurons recours aux enre- 
gistrements pour stocker l'ensemble 


des informations les concernant. 


Les pointeurs 


En premier lieu, il est important de 
faire la différence entre les variables 
statiques et dynamiques. Une varia- 
ble déclarée comme suit : 


VAR X : TYPEI. 


est une variable statique. En effet, 
lors de la compilation, le compilateur 
alloue une case mémoire à la varia- 
ble X de type TYPE1. L'adresse de 
cette case mémoire est fixée. 

Par opposition. l'attribution d'une 
case mémoire à une variable dyna- 
mique se fait lors de son utilisation à 
l'exécution. Il est à noter que les 
pointeurs traitent les variables dyna- 
miques. 


Un pointeur est une variable, il est 
associé à un type défini préalable- 
ment: c'est pourquoi on rencontre 
des pointeurs de toutes sortes : poin- 
teurs d'entiers, de caractères, de 
booléens, de tableaux, d'enregistre- 
ments. Ainsi, on trouvera aisément 
dans les déclarations d'un pro- 
gramme : 


TYPE PTR="ELEMENT ; 
ELEMENT=RECORD 
NOM : STRING ; 
PRENOM: STRING ; 
DATE :STRING 
END ; 


VAR  PELT:PTR; 


Pascal UCSD 


Laurence Tichkowsky 


ELEMENT est un enregistrement re- 
groupant des informations comme : 
Nom, Prénom, Date de naissance, 
PTR définit des pointeurs d’ELE- 
MENT et PELT sont les variables qui 
vont pointer sur les différents enregis- 
trements. 


Pour plus de compréhension, pre- 
nons un exemple et analysons-le. 
Notre exemple sera le programme 
TRI, listé ci-après. Celui-ci fait un tri 
alphabétique sur les noms des diffé- 
rents enregistrements stockés dans le 
fichier TRI1, de type TEXT. Les 
autres types de fichier seront étudiés 
ultérieurement. 


Analyse des procédures 
Procédure LIRE 


Le tableau de pointeurs d'ELEMENT 
est utile dans la mesure où il nous 
permettra d’avoir accès aux différents 
enregistrements stockés, de façon sé- 
quentielle, dans notre fichier TRI1. 
Celui-ci n'aura pas sa raison d'être 
lorsque nous parlerons de listes. 


Cette procédure est en fait celle qui 
nous donne la possibilité de saisir les 
enregistrements afin de remplir les 
champs composant le type ELE- 
MENT. 


L'appel de la procédure standard 
NEW, dont le paramètre est une va- 
riable pointeur, est très importante. 
En effet, NEW(VP) entraîne la créa- 
tion d'un nouvel élément, permet 
l'allocation mémoire nécessaire à une 
nouvelle variable et de ranger 
l'adresse mémoire de l'espace alloué 
dans la variable VP. Ainsi, pour accé- 
der aux informations de ELEMENT il 
nous faudra passer par l'intermé- 
diaire de VP. 


Remarque: si l'enregistrement 
comporte des champs variables il 
faudra faire NEW(VP.C1...CN). Ci 
étant les valeurs correspondant aux 
différents choix d'une structure 
CASE, ils doivent être écrits dans 
l'ordre de la déclaration. 


VP est de type PTR, lui-même défi- 
nissant un pointeur d'ELEMENT, 
ELEMENT étant un enregistrement 
composé des champs Nom, Prénom 
et Date. Ainsi, afin de définir les dif- 
férents champs considérés on écrira : 


VP .NOM ou VP .PRENOM ou en- 
core VP .date. VP est une variable 
statique (selon la définition donnée 
plus haut) tandis que VP est dyna- 
mique. En effet, c'est le NEW(VP) 
qui lui permet d'exister. Toutes les 
autres instructions de cette procédure 
n'ont nullement besoin d'être détail- 
lées. 
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Procédure LECTURE 


Elle appelle LIRE autant de fois qu'il 
y à d'éléments à trier et définit le ta- 
bleau de pointeurs. 


Les procédures 
CLASS et ECHANGE 


La procédure CLASS effectue un tri 
BULLE, c’est-à-dire que l’on consi- 
dère deux éléments consécutifs du fi- 
chier, on les compare et les échange 
s'il y a lieu. Cette procédure appelle 
ECHANGE. Le témoin COMPTEUR 
nous permet de savoir quand le tri 
est terminé (il est égal à O0 quand le 
parcours de la liste n’a pas entraîné 
d'échange). 


PROGRAM TRI ÇINPUT,OUTPUT) ; 


TYPE PTR="ELEMENT ; 
ELEMENT =RECORD 
NOM: STRING: 
PRENOM:STRING; 
DATE :STRING 
END ; 


TAB=ARRAYC1..100) OF PTR; 


VAR PT:TAB; 
UP:PTR; 
N,U,COMPTEUR :INTEGER:; 
TRIL:TEXT; 


PROCEDURE LIRE; 


BEGIN 
NEWKUP) ; 
WRITELN('NOM :°); 
READLNÇUP * .NOM) ; 
WRITELNITRI1,UP".NOM) ; 
WRITELN(C’PRENOM :°); 
READLNÇUP® ,. PRENOM) ; 
WRITELN (TRII,UP°",.PRENOM) ; 
WRITELN('DATE DE NAISSANCE :° 
READLN (UP*.DATE) ; 
WRITELN (TRI1,VUP*.DATE) 
END ; 


PROCEDURE LECTURE; 


BEGIN 


WRITELN (’LA LISTE À TRIER EST 


FOR N:=1 TO U DO 
BEGIN 
LIRE; 
PTINJ:=Up 
END 
END ; 


PROCEDURE ECHANGE (I :INTEGER); 


BEGIN 
COMPTEUR:=0 ; 
UP:=PTLII): 
PTIIJD:=PTCI+1);: 
PTLI+1]:=UP; 
COMPTEUR:=1 

END ; 


PROCEDURE CLASS; 


VAR I:INTEGER; 


COMPTEUR:=0 ; 
FOR I:=1 TO U-1 DO 
BEGIN 


Procédure IMPRESSION 


Comme son nom l'indique, elle im- 
prime les résultats trouvés, c’est-à- 
dire, la liste des noms triés. 


Les listes 


Une des contraintes du Pascal réside 
dans la déclaration des tableaux. En 
effet, il est impossible de définir des 
tableaux de dimension variable. 
Ainsi, le plus souvent, on les sur-di- 
mensionne et la place mémoire dis- 
ponible se trouve réduite. Il serait 
donc intéressant d'exploiter la créa- 
tion dynamique au niveau des élé- 
ments d’un tableau. 


La structure d’un tableau établit une 
liaison entre celui-ci et ses éléments 
par l'intermédiaire des indices. Il faut 
donc trouver une représentation simi- 
laire. Cette représentation est celle 
des listes. Une liste est une suite 
d'éléments, créés dynamiquement, et 
reliés par une structure souple réali- 
sée à l’aide des pointeurs. 

Chaque élément de la liste se 

compose d’un minimum de deux in- 

formations : 

e ses composantes propres, corres- 
pondant à l'élément du tableau 
(entier, réel, enregistrement...) 

e le pointeur vers l'élément suivant 
de la liste. 

Le dessin ci-dessous montre un ta- 

bleau 

TAB=ARRAY{1..10] OF CHAR; 

dont les éléments sont À, B, C, D.E, 

F, G et sa représentation en liste. Ce 

schéma, bien que très primaire, met 

en évidence la structure d’une liste 
par rapport à celle d’un tableau. 





IF PTLIJ .NOM>PTLII+1)".NOM THEN ECHANGE (I) 


END 
END 


Place 
mémoire 
perdue 





Une des grandes différences entre un 
tableau et une liste réside dans l’ac- 
cès aux éléments. Lorsqu'il s’agit 
d'un tableau, il suffit de connaître 
l'indice qui lui est associé; les élé- 
ments d'une liste, quant à eux, sont 
accessibles par le pointeur pointant 
sur chacun. Ainsi, pour accéder au 
3° élément il nous faut connaître son 
pointeur, celui-ci est contenu dans le 
2°, dont le pointeur est contenu dans 
le 1°. De ce fait, le premier élément 
trouvé nous donnera l'adresse du se- 
cond... 
Les éléments d’une liste sont, de part 
la structure du Pascal, des enregistre- 
ments. En effet, ils se composent de 
deux (ou plus) parties de types diffé- 
rents (dans notre exemple un carac- 
tère et un pointeur), et les seules va- 
riables autorisant le mélange des 
types sont les enregistrements. Ainsi, 
les éléments de la liste représentée 
ci-dessus seront déclarés comme 
suit : 
TYPE PELT="ELT; 
ELT= RECORD 
CAR: CHAR ; 
PTC:PELT 
END ; 


Le champ CAR contient le caractère 
et PTC contient le pointeur vers l'élé- 
ment suivant, lui-même de type ELT. 


Comme nous l'avons précisé plus 
haut, les éléments d'une liste sont 
créés de façon dynamique (allocation 
mémoire au fur et à mesure de l'exé- 
cution du programme) tandis que le 
tableau est construit lors de la compi- 
lation. 


Revenons à l'accès aux éléments de 
la liste. Il a été dit, précédemment, 
qu'il faut connaître le premier élé- 
ment de la liste pour accéder aux 
suivants. De ce fait, un pointeur de 
début de liste est indispensable: par 
convention, le pointeur du dernier 
élément de la liste sera NIL. Lors de 
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UNTIL COMPTEUR=0 
END ; 


PROCEDURE IMPRESSION; 
VAR I:INTEGER; 


BEGIN 


WRITELN (TRI1,'LA LISTE TRIEE 


FOR I:=1 TO U DO 
BEGIN 
UP:=PTCI]: 
WRITELN €UP° NOM) ; 
WRITELN {TRII,UP*.NOM) : 
WRITELN {UP*,PRENOM) : 


WRITELN (TRI1,UP°,.PRENOM): 


WRITELN £UP*,DATE): 
URITELN (TRI1,UP°.OATE: 
ErD 
END ; 


CESSER SSEÉSSSSÉERSESRSESSÉ Ses | 





la création d'une liste le pointeur de 
tête sera défini et restera inchangé 
tout au long du traitement; tandis le 
pointeur de fin de liste sera modifié. 
Un pointeur intermédiaire est néces- 
saire à l'insertion de nouveaux élé- 
ments, de ce fait le pointeur de fin 


25; sera déplacé en conséquence. La 


structure de liste permet, avec sou- 
plesse, d'insérer et de supprimer des 
éléments. Ecrivons un programme 
regroupant la création d'une liste, 
l'insertion et la suppression d’un élé- 
ment dans celle-ci. 


Ce programme listé ci-après crée une 
liste d’enregistrements dont les 
champs sont : 

e un nom 

e et un pointeur. 

Il permet aussi d'insérer un élément 


+ UT OÙ PROGPAMM 

PAL ARE grâce à la procédure INSERER. La 

CÉRARERÉER ANR GUIAE RATES UNS ENERLELET procédure SUPPRIMER supprime un 
élément de la liste. 

BEGIN Explication du 


REURITE {TRI1,’TRI1'): 


UWRITELN £'NOMBRE DE NOM INFERIEUR à 


RERDOLN CU); 

LECTURE ; 

CLASS : 

WRITELN (TRI1); 

WRITELN CTRI1):; 

IMPRESSION; 

CLOSE (CTRI1,LOCK) 
END. 


programme 


Création 

Cette procédure, comme son nom 
l'indique, est celle qui permet de 
créer une liste. Au début, la liste est 
vide; ainsi, les pointeurs de début et 
de fin de liste sont égaux. Puis on ar- 
rive dans la boucle WHILE, par la- 


100"); 


————————————_———__——_ 


PROGRAM LISTEALPHA (INPUT, OUTPUT) :; 


TYPE PELT="ELEMENT ; 
ELEMENT=RECORO 
NOM: STRING: 
PTSUIV:PELT 
END ; 


VAR PTDER,PTFIN,PTINT,POINT : PELT; 


(+ PTDEB: POINTEUR DE DEBUT DE LISTE +) 


(* PTFIN: POINTEUR DE FIN DE LISTE *) 
(x PTINT: POINTEUR INTERMEDIRIRE #) 
(* NECESSAIRE AU TRAITEMENT #) 


A,B,C : STRING: 
X,Y : INTEGER; 
PROCEDURE CREATION: 


BEGIN 
NEW 4PTDEEB); 
(+ POUR LA CREATION DU 1ER ELEMENT #) 
PTFIN:=PTOEB;: 
(# LISTE VIDE => POINTEUR DE FIN = #) 
(x POINTEUR OE DEBUT DE LISTE +»? 
WRITELN (‘ENTREZ LE IER NOM ‘); 
RERDLN (CC); 


(+ LECTURE OÙ NOM +) 

(* PAR CONVENTION L'ARRET SE #) 

(x FERA PAR ENTREE D'UNE CHAINE VIDE +) 
(# ET LE POINTEUR DE FIN SEFA MNIL +#) 


WHILE CC <> » DO 
BEGIN 
NEW CPTINT): 
(+ CREATION D'UN NOUVEL ELEMENT #) 
PTINT®,.NOM:= C: 
C* AFFECTATION OÙ CHAMP +) 
PTFINS .PTSUIV:= PTINT: 


(x LIAISÜN AVEC ELEMENT PRECEDENT #) 


PTFIN:=PTINT ; 
(x POINTEUR DE FIN DEPLACE +) 
PTFIN®.PTSUIL:= NIL; 


READLN CC): 
(* LECTURE DÙ PROCHAIN ELEMENT +) 
END 
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END ; 


PROCEDURE LIRE; 


BEGIN 
PTINT:=PTDEB; 
(+ ON COMMENCE À LIRE DEPUIS LE DEBUT #) 
C*# ON VA AFFICHER LES ELEMENTS DE LA LISTE #) 
{+ LE TEST D'ARRET SERA LA VALEUR NIL #) 
(+ DU POINTEUR DE FIN DE LISTE #) 


WHILE CPTINT'.PTEUIU <> NIL >) O0 


BEGIN 
WRITELN CPTINT®.NOM) :; 
PTINT := PTINT®.PTSUIL 
END : 


WRITELN CPTINT®.NOM) 
(# NECESSRIRE POUR DE DERNIER ELEMEMT #) 
END ; 


PROCEDURE INSERER (A : STRING); 


VAR L +: INTEGER: 
PTANC : PELT : 


BEGIN 
(# INITIRALISATION +) 
PTINT:=PTOES; 


L:=û: 
WHILE €L°N1)5 AND CPFTINT NIL) O0 

BEGIN 

IF PTINT'.NOM<A THEN EEGIN PTahC:= PTINT: 
PTINT:=PTINT: .PTSUIU 
ENiC 
ELSE L:=1 
ENC ; 


(+ AU SORTIR DE LA EQUCLE IL FAUT TESTER *) 
(+ LE RESULTAT DE LA PECHERCHE +) 

“% SI OUI : ALLOCATION MEMOIRE POUR LE #) 

(+ NOUL'EL ELEMENT ET AFFECTATION OÙ CHAMP #) 


NE {POINT) ; 
POINT" .PTSEUIL':=PTANC" .PTSUILI: 
POINT ,.NOM:=A :; 
PTANC® .PTSUIU :=POINT 
END ; 
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quelle on définit et affecte les 
champs de chaque enregistrement. 
L'instruction NEW(PTINT), va créer 
un nouvel élément de type ELE- 
MENT. Ainsi, le premier élément de 
la liste existe et peut donc être initia- 
lisé. Comme nous l'avons vu plus 
haut, un élément de la liste n’est ac- 
cessible que par son pointeur, lui- 
même contenu dans le champ poin- 
teur de l'élément précédent. Il est 
donc indispensable de relier les élé- 
ments de la liste entre eux. Cette liai- 
son est réalisée par l'instruction : 


PTFIN ”.PTSUIV:=PTINT; 


Ainsi, on peut déplacer le pointeur 
de fin de liste et continuer la création 
des éléments de la liste. La saisie des 
différents noms des éléments de la 
liste se terminera par l'entrée (au cla- 
vier) d’une chaîne vide. 


Lecture 


Cette procédure n'a nullement be- 
soin d’être commentée. Elle permet 
l'affichage des éléments de la liste. 


Insérer 


Pour insérer un élément dans une 
liste, il faut déterminer l'endroit de 
l'insertion. Une insertion au début ou 
en fin de liste, ne pose pas de pro- 
blème, il suffit de déplacer les poin- 
teurs de début et de fin de liste. L’in- 
sertion en milieu de liste est plus 
délicate. Dans notre exemple, pour 
plus de facilité, le programme affiche 
les éléments existants et vous de- 
mande après quel nom vous désirez 
insérer le nouveau nom. Ainsi, le 
programme recherche le nom exis- 
tant, crée un nouvel élément et met 
à jour les pointeurs. 


Insertion alphabétique 


Cette procédure n'est intéressante 
que si la liste à traiter n’a qu’un seul 
élément. Ainsi, la liste des noms sera 
triée par ordre alphabétique. Pour 
des enregistrements  comportants 
d’autres champs, le tri pourra, bien 
sûr, s'effectuer sur un prénom, une 
date de naissance … 

La procédure recherche l'endroit de 
l'insertion, crée un nouvel élément, 
et enfin déplace les pointeurs en 
conséquence. 


Supprimer 


Cette procédure supprime un nom 
existant et déplace les pointeurs en 
conséquence. 


La structure de liste apporte un plus 
au traitement, quand les éléments de 
celle-ci doivent être rangés et préle- 
vés dans un ordre bien défini. L’utili- 
sation d’une liste plutôt que d’un ta- 
bleau se fait en fonction : 

e de la difficulté à connaître la di- 
mension du tableau; 

e des différentes modifications sus- 
ceptibles d'intervenir, quant au 
nombre d'éléments du tableau: 

e du nombre de manipulations à ef- 
fectuer sur les éléments. El 


PROCEDURE SUPPRIMER (A:STRIMNG); 


VAR L:INTEGER; 


BEGIN 
PTINT:=PTDEB: 
L:=0:; 
WHILE (L€)13 AND CPTINT #3 NIL) DO 
BEGIN 
IF PTINT'.NOM=A THEN L:=1 
ELSE BEGIN 
POINT :=PTINT; 
PTINT:=PTINT®" .PTSUIL 
END ; 
END ; 


IF L=! THEN BEGIN 
IF PTINT=PTDOEE THEN PTDEB:=PTINT".PTSUIV 


ELSE POINT*.PTSUIU:=PTINT" ,PTSUIU 


END 
ELSE WRITELN (LE NOM ‘’ ,A,’ EXISTE PAS’) 
END ; 


CHÉERKELELESERERÉEREÉÉESEÉERÉERERÉEÉÉSRERESEÉEREREESE) 


(+ DESBUT OÙ PROGRAMME PRINCIPAL #) 


CERERSEERESERSEREEEÉELRERERÉEIETEREERERESESSSÉESLSÉESSE) 


BEGIN 
CREATION: 
LIRE; 
X:=1; 
WHILE X=1 DO 
BEGIN 
WRITELN (’0- POUR SUPPRIMER’): 
WRITELN (’1- POUR INSERER ‘): 
WRITELN (‘2- RIEN FAIRE‘); 
READLN (Y); 
CASE Y OF 
0 : BEGIN 
WRITELN C’NOM À SUPPRIMER’); 
READLN (A); 
SUPPRIMER (4) ; 
LIRE: 
END ; 
{ : BEGIN 
WRITELN (NOM À INSERER ‘); 
READLN (A) ; 
INSERER (A) ; 
LIRE; 
END ; 
2 : BEGIN 
WRITELN (VOUS VOULEZ VRAIMENT RIEN FAIRE’); 
READLN <X) 
END 


PROCEDURE INSERER (4,6 : STRING); 
VAR L : INTEGER:; 


BEGIN 
C# INITIALISATION #) 
PTINT : =PTDEB; 
L:=0; 
WHILE (L<>13 AND CPTINT <> NIL) DO 
BEGIN 
IF PTINT'.NOM=B THEN L:=i 
ELSE PTINT:=PTINT: .PTSUIU 
END ; 


(*# AU SORTIR DE LA BOUCLE IL FAUT TESTER +*#) 
(x LE RESULTAT DE LA RECHERCHE #) 

(x SI OUI : ALLOCATION MEMOIRE POUR LE +) 

(# NOUVEL ELEMENT ET AFFECTATION DU CHAMP *) 


IF L=1 THEN BEGIN 
NEW (POINT); 
POINT" .PTSUIUV:=PTINT" .PTSUIV; 
POINT .NOM:=à; 
PTINT® .PTSUIV:=POINT 
END 
ELSE WRITELN (’LE NOM ‘,8R,’ EXISTE PAS’) 
END ; 
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L'écran graphique de l'Apple Il per- 
met d'effectuer des animations de 
bonne qualité grâce à sa définition 
de 280 par 192 points. 

L'écran haute résolution se situe 
dans la zone mémoire $2000 à 
$3FFF pour la première page et 
$4000 à $5FFF pour la seconde. 


Chacune des 192 lignes de l'écran 
est constituée de 40 octets consécu- 
tifs, dont 7 bits seulement sont affi- 
chés à l'écran. Le huitième bit (bit de 
poids fort ou MSB) est utilisé pour la 
sélection des couleurs. Lorsque ce bit 
est à 1, la couleur d’un point isolé en 
colonne paire sera bleue alors qu'un 
point isolé en colonne impaire appa- 
raîtra orange. Lorsque le bit ‘’cou- 
leur” est à 0, la couleur d'un point 
isolé sera violette pour les colonnes 
paires et verte pour les colonnes im- 
paires. 


Les animations réalisées sur l'Apple 
peuvent être classées en deux gran- 
des catégories : 


e Celles utilisant les vecteurs 
’shapes” de l'Applesoft ou des 
procédures similaires. 

e Celles utilisant les blocs d'image. 


Les vecteurs shapes 


Dans ce type d'animation, les tracés 
sur l'écran sont effectués par dépla- 
cement d'un vecteur unitaire ‘allu- 
mant” ou ‘éteignant” un point de 
l'écran, c'est-à-dire mettant à 1 ou à 
0 l'un des 7 bits d'un octet de la 
page graphique. 

Ce type de tracé, défini dans le ma- 
nuel Applesoft, permet de modifier 
facilement l'échelle et l'orientation 
d'un dessin. Ces modifications sont 
présentes en Applesoft sous les 
commandes "ROT' et "SCALE". 


Par contre, l'utilisation en est assez 
lente puisque, pour traiter un octet 
de la page graphique, il convient de 
répéter 7 fois la procédure ‘déplace- 
ment, mise à 0 ou à 1 d’un octet”. 


Les blocs d’image 


Le principe du bloc image est de 
sauvegarder les octets constituant un 
rectangle d'image comprenant le des- 
sin à animer. L'avantage de ce type 
d'animation réside dans sa rapidité. 
En effet, le traitement est effectué par 
octet et non par bit, ce qui permet 
de charger beaucoup plus rapide- 
ment un dessin en un endroit quel- 
conque de la page graphique. 

Par contre, il est difficile, voire im- 
possible, d'effectuer des rotations et 
des agrandissements du dessin. 
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Animations graphiques 


Un autre inconvénient de l’utilisation 
des blocs image est lié à l’utilisation 
de l’octet comme unité de travail. Il 
s’agit des saccades obtenues dans les 
déplacements horizontaux lorsque 
l'on utilise tel quel le bloc sauve- 
gardé. Cette saccade provient du fait 
que les déplacements à droite ou à 
gauche sont effectués au pas de un 
octet soit 7 bits ou 7 points de 
l'écran. 

Un remède possible à cet inconvé- 
nient consiste en l’utilisation d'un 
programme décalant les bits d'un 
octet, ce qui permet de réduire les 
déplacements à un pas inférieur. 

Le programme peut être exécuté soit 
au moment de chaque tracé, soit 
avant le tracé, les différents blocs 
modifiés étant à leur tour sauvegar- 
dés en mémoire et utilisés au mo- 
ment convenable. 

Dans le premier cas, le programme 
de déplacement des bits dans un 
octet conduit à une augmentation du 
temps de tracé et annule une partie 
de l'avantage des blocs image. 

Dans le second cas, la rapidité d’exé- 
cution est maintenue, mais il'est né- 
cessaire de disposer d'une place suf- 
fisante en mémoire pour loger les 
différents blocs modifiés. 


Cette dernière technique, qui porte 
en anglais le nom de ‘pre-shifted 
shapes” est employée par le pro- 
gramme Applesoft BLOC.BAS, qui 
utilise la routine assembleur 
BLOC.OBJ (dont le code source est 
BLOC.TXT, sous Lisa 2.5). 


Afin d'utiliser ce programme, vous 
devez disposer d'un dessin sauvé 
sous forme de page graphique, et 
réalisé par HPLOT et consorts. Il 
s'agit bien là d'un dessin standard, et 
non d'une shape qui serait inexploi- 
table pour BLOC.BAS. 

Après avoir effacé la page HGR 1, le 
cas échéant, et chargé votre dessin 
de base, vous pourrez définir le pas 
de déplacement (1 à 6) et le nombre 
de blocs à inclure dans la séquence 
de déplacements (1 à 7). 


La taille du bloc peut être donnée 
par Joystick ou clavier, en indiquant 
simplement le point haut - gauche et 
le point bas - droit du cadre dans le- 
quel sera inscrit le motif à déplacer. 
La séquence de déplacements ainsi 
constituée vous sera ensuite démon- 
trée à l'écran et vous pourrez enfin 
l'enregistrer sur disquette. 


L'ensemble des blocs composant la 
séquence est sauvé à partir de 
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l'adresse $6000 selon le schéma sui- 
vant : 


e $6000 : hauteur du bloc (nombre 
de lignes) 

e $6001 : largeur du bloc (en octets, 
soit 7 points) 

e $6002: pointeurs du début du 
premier bloc 

e 56003: (adresse basse et adresse 
haute) 

e $6004 : pointeurs du début du se- 
cond bloc 

e $6005 : (adresse basse et adresse 
haute) 


e $600E: pointeurs du début du 
7ème bloc 

e $600F 

e $6010 et suivants : octets du bloc 
image 


Utilisation de la 
séquence 


L'utilisation de la séquence créée par 
le programme BLOC.BAS est réali- 
sée par l'intermédiaire du pro- 
gramme TRACE.OBJ, qui est en fait 
une version améliorée d'une partie 
du programme BLOC.OBJ. 


Les paramètres nécessaires à l'exécu- 
tion du tracé sont : 


e le numéro du bloc utilisé, qui doit 
être stocké en $FE (254) 

e les coordonnées du point haut et 
gauche du bloc sous la forme du 
numéro de ligne stocké en $FC 
(252 — si on utilise une valeur 
telle que la somme numéro de 
ligne et hauteur du dessin soit su- 
périeure à 192, le dessin sera 
coupé dans le bas) et le numéro 
de la colonne gauche en octet (0 
à 39) stocké en $FD (253 — si on 
utilise une valeur inférieure à O0 ou 
telle que la colonne indiquée plus 
la largeur du dessin soit supérieure 
à 40, le dessin sera coupé à gau- 
che ou à droite). 


Tracé avec Joystick 


Le programme TRACE.BAS utilise la 
routine précédente pour une anima- 
tion de la séquence ROBOT.BLC, 
donnée à titre d'exemple. Pour l’exé- 
cuter, il suffit de taper RUN 
TRACE.BAS et d'entrer les coordon- 
nées de départ de l'animation en ré- 
ponse aux questions du programme. 


È 
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BLOC - BAS 


LOMEM: 346864 

REM À BELLEGARDE 8/1984 

POKE 232,239: POKE 238,64: POKE 230,3 
2: HCOLOR= 1: SCALE= 1: ROT= 0: PR 
INT CHR$ (4) ;"BLOAD ELOC.0BJ" 


REM 1ERE PHASE 
ONERR GOTO 60 
HOME : TEXT : UTAB 1: HTAB 13: INVERS 
E : PRINT "IERE PHASE": NORMAL 
UTAB 5: PRINT " VOUS POUVEZ :" 
UTAB 8: PRINT "- 1 - CHARGER UN DESSI 
N " 
UTAB 10: PRINT "- 2 - CHARGER UN BLOC 
UTAB 12: PRINT "- 3 - PASSER À LA PH 
ASE SUIVANTE" 
UTAB 14: PRINT "- 4 - AFFICHER LA PA 
GE GRAPHIQUE" 
UTAB 16: PRINT "- 5 - EFFACER LA PAG 
E GRAPHIQUE" 
_ UTAB 18: PRINT “- 0 - SORTIR DU PROG 
RAMME " 
UTAB 21: INPUT " VOTRE CHOIX : 
“10% 
IF CX € O0 OR C4 > 5 THEN UTAB 23: P 
RINT : GOTO 140 
IF CZ = 0 THEN HOME : END 


ON C GOTO 159,250,470,430,440 

ONERR GOTO 240 

HOME : VTAB 1: HTAB 8: PRINT 
MENT D'UN DESSIN": NORMAL : VUTAB S 

INPUT "NOM DU DESSIN À CHARGER ‘C° D 
ONNE LE CATALOGUE ET ‘RETURN’ À 
NNULE LA PROCEDURE : ";T$ 

IF T$ = "C" THEN PRINT CHARS (4);"C 
ATALOG": PRINT : GOTO 200 

IF T$ = "" THEN é0 

PRINT CHRS (4) ;"BLOAD 
“: GOTO 50 

PRINT : INPUT * 
? POUR CONTINUER 
0 200 

ONERR GOTO 420 

HOME : UTAB 1: HTAB 8: PRINT " 
EMENT D‘UN BLOC": UVTAB 5 


" CHARGE 


“:T$;",4$2000 


* RETURN 
GOT 


ERREUR TAPER 
"sT$: PRINT : 


CHARG 


INPUT "NOM DE LA SEQUENCE À CHARGER 
‘C7’ DONNE LE CATALOGUE ET ‘RETURN 
* ANNULE LA PROCEDURE : ";T$ 

IF T$ = "C" THEN PRINT CHR#& (4);"C 
ATALOG": PRINT GOTO 270 

IF T$ = "" THEN 60 


PRINT CHR#& (4) ;"BLOAD ";T$;",4#$6000 


ONERR GOTO 320 


PRINT : INPUT " NUMERO DU BLOC À AFF 
ICHER <€1/72 : "{NUMY 

PRINT : PRINT " COORDONNEES D'AFFICH 
AGE ": HTAB 12: PRINT "CPOINT HAUT 
- GAUCHE)" 

PRINT : INPUT " X CHAUT-GAUCHE) <0,2 
79) : "3XX 

IF X < O OR X > 279 THEN 340 

INPUT "Y CHAUT-GAUCHE) <0,1913 : "3Y 
z 

IF Y € O OR Y > 191 THEN 360 

POKE 250,16: POKE 251,96: POKE 252,Y 
Z%: POKE 253, INT (XX / 7): POKE 25 
4 ,NUM 

POKE - 16304,0: POKE - 16300,0: PO 
KE - 16297,0 

CALL 16559 


420 


620 


630 


640 


650 


éé60 
670 


68û 


690 


700 


710 


720 


730 


UTAB 21: INPUT "TAPER ‘RETURN’ POUR 
CONTINUER “;T#: GOTO 50 

PRINT : INPUT " ERREUR TAPER ‘RETURN 
/ POUR CONTINUER ";T$: PRINT : GOT 
O 270 

POKE - 16304,0: POKE - 16202,0: PQ 
KE - 16297,0: POKE - 16300,0: GE 
T T#: GOTO 60 

HOME : UTAB 5: INPUT "VOULEZ-VOUS RE 
ELLEMENT EFFACER LA PAGE GRAFHIQU 
E <O/N> ";T$ 

IF T$ < > "O" THEN 40 

HGR : TEXT : GOTO 60 

REM Z2EME PHASE 


ONERR GOTO 490 


HOME : UTAB 1: HTAB 13: INVERSE : PR 
INT "2EME PHASE": NORMAL 

UTAB S: PRINT " VOUS POUVEZ :" 

UTAB 8: PRINT "- 1 - DEFINIR LE PAS 
ET LE NOMBRE DE BLOCS DE 
LA SEQUENCE" 

UTAB 11: PRINT "- 2 - RETOURNER À LA 

1ERE PHASE" 

UTAB 14: PRINT "- 3 - PASSER À LA 3E 
ME PHASE" 

UTAB 17: PRINT "- 0 - SORTIR DU PROG 
RAMME " 

UTAB 20: INPUT " VOTRE CHOIX : 
“ 1 CX 

IF CZ € O OR CZ > 3 THEN UTAB 20: P 
RINT : GOTO 550 

IF CZ = 0 THEN HOME : END 

ON CZ GOTO 590,50,750 

ONERR GOTO 600 

HOME : UTAB 1: HTAB 8: INVERSE : PRI 


NT "DEFINITION DE LA SEQUENCE": NO 
RMAL 

UTAB 4: PRINT " - PAS DE LA SEQUENCE 
" 


UTAB 6: PRINT "LE PAS DE LA SEQUENCE 
EST EGAL AU DEPLACEMENT ENT 
RE LES BLOCS" 

UTAB 9: PRINT "UN PAS = 1 EST LE PLU 
S FIN MAIS LA COULEUR DU DESS 
IN EST MODIFIEE À CHAQUE TRACE (SA 
UF SI LE DESSIN EST NOIR/BLANC) UN 
PAS = 2 PERMET DE CONSERVER LES 


COULEURS" 

UTAB 15: INPUT "PAS CHOISI <1/62 : " 
: PAS 

IF PASZ < 1 OR PASX > 6 THEN VTAEB 1 
S: PRINT : GOTO 640 

ONERR GOTO 670 

UTAB 18: PRINT " - NOMBRE DE BLOCS D 
E LA SEQUENCE" 

UTAB 20: PRINT "UN NOMBRE = 7 PERMET 
DE DEFINIR TOUTE LES POSSIBILIT 
ES DE DESSIN" 

UTAB 23: INPUT "NOMBRE DE BLOCS «1/7 
> : "; NOMBRE 

IF NOMBREZ < 1 OR NOMBRE > 7 THEN 


UTAB 23: PRINT : GOTO 690 

HOME : UTAB 7: PRINT "CES PARAMETRES 
NECESSITENT DE DISPOSER DE ";7 * 
INT (.9 + (PAS * NOMEBREY) / 7); 
" POINTS GRAPHIQUES À LA DROITE DU 
UTAE 9: PRINT "DESSIN POUR PERMETTRE 

D'EFFECTUER LES  DEPLACEMENTS" 
UTAB 12: PRINT "CETTE DISPOSITION SE 
RA VERIFIEE PAR LE PROGRAMME DANS 
LA PHASE SUIVANTE TAPER SU 
R UNE TOUCHE POUR CONTINUER "3: GE 
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T T$: GOTO 490 1130 ONEFR GOTO 1140 
740 REM GSEME PHASE 1140 HOME : TEXT : VTAB 1: HTAB 13: INUE 
750 ONERR GOTO 760: RSE : PRINT "4EME PHASE": NORMAL 
760 HOME : VTAB 1: HTABR 13: INVERSE : PR 1150 VUTAB S: PRINT "VOUS POUVEZ :" 
INT "SEME PHASE": NORMAL 1160 UTAB 28: PRINT "- 1 - CREER LA SEQUE 
770 UTAB 5: PRINT "VOUS POUVEZ : " NCE DEFINIE" 
780 VUTAB 8: PRINT "- { - DEFINIR LE BLOC 1170 UTAB 11: PRINT "- 2 - RETOURNER À L 
DE REFERENCE DE LA SEQUEN À 3SEME PHASE" 
CE AVEC LES PADDLES" 1180 UTAE 14: PRINT "- 0 - SORTIR DU PRO 
790 UTAB 11: PRINT "- 2 - DEFINIR LE BLO GRAMME" 
C DE REFERENCE DE LA SEQUENCE 1190 UTAE 18: INPUT " VOTRE CHOIX : 
AVEC LE CLAVIER TOUCHES 1; “ ; C4 
J,K,M ET “RETURN? " 1200 IF C4 < O0 OR CX > 2 THEN UVTAB 15: 
800 VTAB 15: PRINT "- 3 - RETOURNER À LA PRINT : GOTO 1190 
2EME PHASE" 1210 IF CX = 0 THEN HOME : END 
810 UTAB 18: PRINT "- O0 - SORTIR DU PROG | 1220 ON C* GOTO 1230,750 
RAMME " 1220 POKE - 146304,0: POKE - 16302,0: P 
820 UVTAB 22: INPUT " VOTRE CHOIX : OKE - 16300,0: POKE - 16297,0 
"5: CX 1240 NOMBRE = NOMBREZ:PAS = PASX 
830 IF CZ < O OR CZ > 3 THEN UTAB 21: P | 1250 IF NOMBRE = 1 THEN 1340 
RINT : GOTO 820 1260 FOR I = 2 TO NOMBRE 
840 IF CX = O0 THEN HOME : END 1270 CALL 14384 
850 ON Cx GOTO 860,930 ,470 1230 FOR J = 1 TO PAS 
860 POKE - 146304,0: POKE - 16302,0: PO 1290 CALL 146450 
KE - 146297,0: POKE - 16300,0: HC 1300 NEXT J 
OLOR= 3 1310 POKE - 16301,0: HOME : VTAB 21: PR 
870 GOSUB 1560 INT "BLOC NUMERO ";1;" ON CONTINUE 
880 X1 = X:Y1 = Y <O/N> “3: INPUT T# 
890 IF PEEK « - 14287) > 127 THEN 8970 122 IF T$ = "N'" THEN 1130 
900 GOSUB 1560 (220 NET 1 
En ne SR: 1340 CALL 16334 
: . 1250 REM SEME PHASE 
930 POKE - 16304,0: POKE 16302,0: Fa lon HE corn 1270 k: 
DL ÉBS nn ee heal Le 1270 HOME : TEXT : UTAB 1: HTAB 13: INUE ee 
s40 GOSUB 1610 RSE : PRINT "SEME PHASE": NORMAL 
nb Vie CT © 1380 VTAB 5: PRINT "VOUS POUVEZ :" 
as 1390 UTAB 8: PRINT “- 1 - SAUVER LA SEQU 
560 GOSUB 1610 ENCE CRÉEE" 
FTDNE MONTE OT 1400 UTAB 11: PRINT "- 2 - RETOURNER À L_ 
980 XDRAW 1 AT X1,Y1: XDRAW 1 AT X2,Y2 À 4EME PHASE" F4 
990 IF X1 > X2 THEN TEMP = X1:X1 = X2:X2 | 5410 UTAB 14: PRINT "- 3 - RETOURNER À L 4 
= TEMP À 1ERE PHASE" k 
1000 IF YIi > Y2 THEN TEMP = Y1:Yi = Y2:Y | 420 UTAB 17: PRINT "- O - SORTIR DU PRO e 
2 = TEMP GRAMME " Ë 
1010 XDRAU 1 AT X1,YI1: XDRAW 1 AT X2,Y2 1430 UTAB 21: INPUT * VOTRE CHOIX É 1 
1015 X3 = X1:Y3 = Yi:X4 = X2:Y4 = Y2 “ ; CZ # 
1020 X1 = X1 - 1:Y1 = Y1 - SiY2 = Y2 = 1 | 440 1F CX < O OR C# > 3 THEN UTAB 21: La 
1030 POKE 238, INT (.9 + CPAS * NOMBRE PRINT : GOTO 1430 Fs 
D) / 7) 1450 IF CX = O0 THEN HOME : END 4 
1040 POKE 250,16: POKE 251,96: POKE 252, 1460 ON C7 GOTO 1480 ,1130,50 Fe 
Y1 + 1: POKE 253,(X1 + 1) / 7: POK 1470 ONERR GOTO 1550 “ti 
E 254,1 1480 HOME : VTAB 1: HTAB 8: PRINT "SAUVE 
1050 POKE 24576,Y2 - Y1 - 1: POKE 24577, GARDE D’UNE SEQUENCE": UTAB 5 
INT €CX2 — X1) / 7) 1490 INPUT "NOM DE LA SEQUENCE À SAUVER 
1060 CALL 16510 /C’ DONNE LE CATALOGUE ET ‘RETUR 
16301,0: PRINT " ATTENTION, LA PL |is00 1F Ts = "C" THEN PRINT CHR$ (4);" 
ACE PREVUE À DROITE DU DESSIN EST CATALOG": PRINT : GOTO 1490 
INSUFFISANTE POUR EFFECTUER LES 1510 IF T$ = "" THEN 1260 
DEPLACEMENTS. PRESSER UNE TOUCHE 15320 FIN = 254 x PEEK (251) + PEEK (250 
POUR CONTINUER ";: GET T$ >:LO = FIN - 24284 
1080 HCOLOR= 3: HPLOT X1,Y1 TO X1,Y2 TO 1530 PRINT CHRS (4);"BSAVE ";T#$;",A#600 
X2,Y2 TO X2,Y1 TO X1,Y1 0,L";LO 
1090 POKE - 16301,0: HOME : VTAB 21: IN |is40 GoTo 1360 
PUT “EST-CE QUE LE BLOC CONVIENT € |issg PRINT : INPUT " ERREUR TAPER ‘RETUR 
O/N> ? "3TS N’ POUR CONTINUER ";T#: PRINT : GO 
1100 HCOLOR= 0: HPLOT X1,Y1 TO X1,Y2 TO TO 1490 
X2,Y2 TO X2,Y1 TO X1,Y1: DRAW 1 AT |1560 REM CROIX GRAPHIQUE 
X3,Y3: DRAW 1 AT X4,Y4: HCOLOR= 3 |1570 x = 7 * INT (40 x € PDL (0) / 255)) 
IF T$ = "N" THEN TEXT : GOTOQ 75 1 IF X = 230 THEN X = 279 
(u 1580 Y = INT (191 x ( PDL (1) / 255)) 
1110 IF T$ < > "O" THEN 1080 1590 XDRAW 1 AT X,Y: IF PEEK € - 14287) 
1120 REM 4EME PHASE 122 THEN XDRAW 1 AT X,Y: GOTO 1570 
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1600 RETURN 9 PRINT CHR$ (4);"EBLOAD TRACE.ORJ" 


1610 X = 140:Y = 90 10 UTAB 8: INPUT "COLONNE DE DEPART: "3;C 
1620 POKE - 1464368,0 | OL:T = COL 
1630 XDRAW 1 AT X,Y 20 UVTAB 12: INPUT "LIGNE DE DEPART : "; 
1640 XDRAW 1 AT X,Y: IF PEEK (« - 14384) LIG 
< 141 THEN 1630 20 VTAB 16: INPUT "BLOC DE DEPART CRE 
1650 IF PEEK € - 16384) = 201 THEN Y = ELO 
Y — 1: IF Y < O THEN Y = 0 40 HGR : POKE - 14302,0 
1660 IF PEEK € - 16384) = 2085 THEN Y = 50 POKE 252,LIG: POKE 253,T: POKE 254,BL 
Y + 1: IF Y > 191 THEN Y = 1971 oO 
1670 IF PEEK ( - 16384) = 202 THEN X = 60 CALL 7936 
X — 7: IF X < 0 THEN X = 0 70 X = PDL {Q):Y = PDL (1) 
1680 IF PEEK « - 16384) = 203 THEN X = 80 IF X > 80 AND X € 160 THEN 150 
X + 7: IF X > 279 THEN X = 279 90 IF X > 157 THEN 120 
1690 IF PEEK « —- 14284) = 141 THEN XDR 100 BLO = BLO - 1: IF BLO < 1 THEN COL = 
AW 1 AT X,Y3 RETURN COL - 2:BLQ = 7:T = COL 
1700 GOTO 1620 110 GOTO 120 


120 BLO = BLO + 1: IF BLO > 7 THEN COL 
COL + 2:BLO = 1:T = COL 
130 IF COL > 128 THEN COL = 128 


ILOAD TRACE.BAS 140 IF COL < O0 THEN T = 256 + COL 
150 IF Y > 80 AND Y < 160 THEN 200 

1 REM TRACE.BAS 160 IF Y > 159 THEN 170 
2 REM À. BELLEGARDE 8/84 170 LIG = LIG - 2: IF LIG < O0 THEN LIG = 
3 HOME : TEXT : VTAB 1: HTAB 8: INVERSE 0 

: PRINT "ANIMATION AVEC JOYSTICK": 180 GOTO 50 

NORMAL 190 LIG = LIG + 2: IF LIG > 255 THEN LIG 
7 REM CHARGEMENT DE LA SEQUENCE = 255 
8 PRINT CHR$ (4);"BLOSD ROBOT.BLC" 200 GOTO 50 








1 : TTL "BLOC.TXT" 33 LDA HSTOCK 
2 * 34 STA HAUT ,X 
3 RÉREEFEEREEEEEREEEREEEEEEEEXEXEXX 35 INC NUMSHA 
4 * * 36 LDA HAUT 
S * À. BELLEGARDE 8/e4 * 37 STA TEMP3 
6 * * 38 LDA LIGHAUT 
7 HRÉERREÉEEEXEÉEEXEEÉEXEÉ EX EX XXE XX 29 STA TEMP2 
8 * 40 LOOPI LDA TEMP2 
9 ORG +$4000 41 LDX ##$00 
10 HBASL EPZ $24 42 LDY ##00 
11 HEASH EPZ $27 43 JSR HPOSN 
12 TEMPI EPZ $EB : VARIAB 44 LOY COLGAU 
LE TEMPORAIRE 45 LDOX ##00 
13 TEMP2 EPZ $EC 446 LDA LARGE 
14 TEMP3 EPZ +ED 47 STA TEMPI 
15 TEMP4 EPZ $EE 48 LOOP2 LDA CHBASL)D ,Y 
18 LSTOCK EPZ $FA > ADRESS 49 STA (LSTOCK,X) 
E BASSE DE STOCKAGE DU BLOC 50 INY 
17 HSTOCK EPFZ $FB :ADRESS s{ INC LSTOCK 
E HAUTE DE STOCKAGE DU BLOC S2 BNE SUITE 
18 LIGHAUT EPZ $FC : LIGNE 523 INC HSTOCK 
HAUTE DU DESSIN 54 SUITE DEC TEMPI 
17 COLGAU EP2Z $FD 3 COL ONN 93 BNE LOOF2 
E GAUCHE DU DESSIN 56 INC TEMP2 
20 NUMSHA EPZ $FE : NUMERO 957 DEC TEMP3 
DU BLOC UTILISE 58 BNE LOOP1I 
21 HAUT EQU +é000 ; HAUT EL 59 RTS 
R DU BLOC 60 * 
22 LARGE EQU +$soûi : LARGEU é1i x ROL DU BLOC IMAGE 
R DU BLOC 62 *% 
23 HPOSN EQU +#F4ii 63 LDA HAUT 
24 # 64 STA TEMP3 
25 * SAUVEGARDE DES OCTETS OÙ BLOC IMAG 65 LDA LIGHAUT 
E 66 STA TEMP2 
24 * 67 LOOPS LDA TEMP2 
27 LDA NUMSHA 68 LDX ##$00 
23 ASL 69 LDY ##00 
29 TAX 70 JSR HPOSN 
30 LDA LSTOCK 71 LDX LARGE 
31 STA HAUT ,X 72 LDY COLGAU 
32 INX 73 CLC 


AS RER 0 
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CHBASL) ,Y 


CHBASL) ,Y 


LOOP3 
LARGE 
COLGAU 


CHBASL) ,Y 


SUITE2 
##80 
(HBASL) ,Y 


LOOP4 
TEMP2 
TEMP3 
LOOPS 


797 # POSSIBILITE DE DEPLACER LE BLOC IM 


74 LOOP3 LDA 
75 ROL 
76 ROL 
77 STA 
78 INY 
77 DEX 
80 BNE 
81 LDX 
82 LOY 
83 LOOP4 CLC 
84 LDA 
85 ROR 
86 BCC 
87 ORA 
88 SUITE2 STA 
89 INY 
70 DEX 
91 BNE 
92 INC 
93 DEC 
94 BNE 
95 RTS 
76 * 
ÂGE 

78 * 

77 LDA 
100 ADC 
101 STA 
102 DEC 
103 LOOP7 LDA 
104 STA 
105 LDA 
106 STA 
107 LOOPé LDA 
108 LDX 
109 LDY 
110 JSR 
111 LDY 
112 LDA 
113 BNE 
114 INC 
115 DEC 
iié BNE 
117 DEC 
118 DEC 
119 BNE 
120 RTS 
121 RETOUR INC 
122 RTS 
123 * 

124 *x DESSIN 

125 * 

124 LDA 
127 ASL 
128 TAX 
127 LDA 
130 STA 
131 INX 
132 LDA 
133 STA 
134 LDA 
135 STA 
136 LDA 
137 STA 
138 LOOPS LOÜA 
139 LDX 
14û LDY 
141 JSR 
142 LOY 
143 LDX 
144 LDA 
145 STA 


COLGAU 
LARGE 
TEMP1 
TEMP1 
HAUT 
TEMP3 
LIGHAUT 
TEMP2 
TEMP2 
##00 
#$00 
HPOSN 
TEMP1 
CHBASL) ,Y 
RETOUR 
TEMP2 
TEMP3 
LOOPSé 
TEMP1 
TEMP4 
LOOP7 


TEMF4 


DU BLOC IMAGE 


NUMSHA 


HAUT ,X 
LSTOCK 


HAUT ,X 
HSTOCK 
HALIT 
TEMP3 
LI GHAUT 
TEMP2 
TEMP2 
##00 
##00 
HPOSN 
COLGAU 
#$00 
LARGE 
TEMP1 








14é LOOP9S LDA (LSTOCK,X) 

147 STA CHBASL) ,Y 

148 INY 

149 INC LSTOCK 

150 BNE SUITE4 

151 INC HSTOCK 

152 SUITE4 DEC TEMPI 

153 BNE LOOP9S 

154 INC TEMP2 

155 DEC TEMP3 

156 BNE LOOP8 

157 RTS 

158 * 

159 * CROIX GRAPHIQUE 

160 * 

161 HEX 01000400242020961B4F492 

D00 

162 END 
1 ORG $1F00 
2 ÉÉEÉÉESÉEÉSÉREFÉÉREÉÉEREÉÉREÉEÉE 
3 * x 
4 * À. BELLEGARDE 8/34 * 
S x + 
É RRÉRRÉEEEEÉÉRÉEEÉEREÉRÉEREÉERÉÉE 
7 * 
8 HBASL EPZ #26 TRACE 
9 HEASH EPZ $27 

10 TEMPI EPZ $EB 

11 TEMP2 EP2 $EC 

12 TEMP3 EP2 $ED 

13 TEMP4 EPZ $EE 

14 LSTOCK EP2 +$FA 

15 HSTOCK EP2Z $FB 

16 LIGHAUT EPZ $FC 

17 COLGAU EP2Z $FD 

18 NUMSHA EPZ"S$SFE 

17 HAUT EQU $4000 

20 LARGE EQU $é001 

21 HPOSN EQU $F411 

22 * 

23 * TRACE DU BLOC 

24 * 

25 TRACE LDA NUMSHA 

26 ASL 

27 TAX 

28 LDA HAUT ,X 

29 STA LSTOCK 

20 INX 

31 LDA HAUT ,X 

32 STA HSTOCK 

33 LDOA HAUT 

34 STA TEMP3 

35 LDA LIGHAUT 

3$ STA TEMP2 

37 LOOP1I LDA COLGAU 

38 STA TEMP4 

3 LDA TEMP2 

40 BPL CONT 

41 CMP #H191 

32 EPL BASPAGE 

43 CONT LDX ##00 

44 LDY ##00 

45 JSR HPOSN 

446 LDA LARGE 

47 STA TEMPI 

483 LOOP2 LDY TEMP4 

47 BMI COUPE 

50 CPY #$28 

S1 BPL COUPE 

















52 LDX ##$00 59 SUITE DEC TEMPI 
53 LDA (LSTOCK,X) 60 BNE LOOP? 
54 STA CHBASL),Y 41 INC TEMP?2 
55 COUPE INC TEMP4 62 DEC TEMPS 
56 INC LSTOCK 63 BNE LOOQP1i 
57 BNE SUITE 64 BASPAGE RTS 
58 INC HSTOCK 45 EMD 
Récapitulation 40C0- 60 85 ED AS FC 85 EC AS 6010- 00 00 00 00 00 00 00 00 
BLOC. OBJ 40C8- EC A2 00 A0 00 20 11 F4 6018- 00 00 00 00 00 00 00 O0 
. 40D0- A4 FD A2 00 AD 01 60 85 6020- 00 00 00 00 00 00 00 7C 
#4000.40FE 4008- EB Al FA 91 26 CS Eé FA 6029- 1F 00 00 00 00 00 04 10 
40E0- D0 02 Eé F8 Cé EB DQ F1 6030- 00 00 00 00 00 07 70 00 
4000- AS FE 0A AA AS FA 9D 00 40E8- Es EC Cé ED O0 D? 60 01 6038- 00 00 00 00 01 40 00 00 
4003- 60 E8 ÀS FB 90 00 60 Eé 40F0- 00 04 00 24 20 20 96 18 6040- 00 00 00 01 40 00 00 00 
4010- FE AD 00 60 85 ED AS FC 40FS- $F 47 2D 00 00 00 00 6048- 00 00 19 4C 00 00 00 00 
4019- 85 EC AS EC A2 00 A0 00 not Aoû 64050- 00 30 SE 00 00 00 00 5 
4020- 20 11 F4 A4 FD 42 00 AD * . 6058- 19 4C 06 00 00 00 30 01 
4028- 01 60 85 EB B1 26 81 FA TRACE. OBJ é060- 40 06 00 00 00 30 05 50 
4030- C8 Eé FA D0 02 Eé FB Cé 1F00- AS FE OA AA BD 00 60 85 6068- 06 00 00 00 30 70 SF 06 
4038- EB D0 F1 Eé EC Cé ED DO 1F08- FA ES BD 00 60 85 F8 AD 6070- 00 00 00 30 O1 40 06 O0 
4040- D9 60 AD 00 60 85 ED AS 1F10- 00 60 85 ED AS FC 8S EC 6078- 00 00 30 O1 40 06 00 00 
4048- FC 85 EC ÀS EC A2 00 A0 1F18- AS FD 85 EE AS EC 10 04 é020- 00 20 01 40 0é 00 00 00 
4050- 00 20 11 F4 AE 01 60 A4 1F20- C7? 8F 10 2C A2 00 A0 00 6083- 30 01 40 06 00 00 00 30 
4053- FD 18 B1 26 24 2A 91 26 1F28- 20 11 F4 AD 01 60 85 EB 6090- 01 40 06 00 00 00 3C 01 
4060- CS CA DO Fé AE 01 60 A4 1F30- À4 EE 30 0À CO 28 10 0é 6098- 40 1E 00 00 00 04 01 40 
4068- FD 18 Bi 26 64 90 02 09 1F38- A2 00 Al FA 91 26 Eé EE $0AG- 10 00 00 00 04 Q1 40 10 
4070- 80 91 26 C3 CA DO F2 Eé 1F40- Eé FA D0 02 Eé F8 Cé EB 40A8- 00 00 00 00 01 40 00 00 
4078- EC Cé ED DO CE 60 AS FD 1F48- D0 Eé Eé EC Cé ED DO C8 5080- 00 00 70 01 40 07 00 00 
4080- 60 01 60 85 EB Cé EP AD 1F50- 60 6083- 00 10 00 00 04 00 00 00 
4088- 00 40 85 ED AS FC 85 EC é0C0- 70 7F 7F 07 00 00 00 ge 
4090- AS EC A2 00 A0 00 20 11 é0C3- 07 70 00 00 00 00 40 
4093- F4 A4 EB B1 26 DO 0D Eé ROBOT. BLOC é0D0- 02 01 0Q OÙ 00 20 10 04 
40AD- EC Cé ED DO EB Cé EB Cé *4000.60EF 6008- 02 00 00 00 70 3F 7E 07 
40A8- EE DO DC 60 Eé EE 60 A5 é0E0- 00 00 00 00 00 00 00 00 
4080- FE 0 AA 80 00 60 285 FA 6000- 20 07 10 460 FO 60 DO 61 60E8- 00 00 00 00 00 00 00 00 
4083- ES BD 00 60 85 FB AD 00 6008- B0O 62 90 63 70 64 50 65 





Bas Form Pacs 
Dies autres Large 


eropiemes 
S'orogammaer 


nes nouveaes 
aterets gouts 
es 


uses 
| ses row 
| *maéeets. 109% 


Nom: 


Si programmer un ordina- 
teur est devenu pour 
vous un loisir, un plaisir. une 
passion, sachez que LIST a 
été créé pour vous. LIST 
vous aide à tirer davantage 
de votre matériel, à vous 
perfectionner dansla con- 
ception des programmes 
qui “tourneront” sur votre 
machine. LIST vous initie 
aux langages informati- 
ques et sélectionne les 
meilleurs livres pour 
progresser. LIST vous 
informe de l'actualité et 
vous fournit trucs, as- 
tuces et idées pour 
mieux programmer... 


VOTRE CADEAU 


Le TRANS'BASIC : 
table de conversion 
des instructions BASIC 


(24 pages - format 11,5 x 25 cm). 


BULLETIN D'ABONNEMENT à retourner à LIST (service Abonnements 
5, place du Colonel-Fabien - 75491 Paris Cedex 10 


Prénom 





Adresse : 





Veuiilez m'abonner pour 10 numéros au prix avantageux de 160F * au lieu de 200F et m'adres- 


ser en cadeau LE 


. Je fais ainsi une économie de 40F sur le prix de vente au nu- 


méro. Je joins mon règlement indispensable libellé à l'ordre de LIST. “Tarif France - autres 


pays: nous consulter. 








BASICIUM, 


Gérard Michal 


IG Basic enrichi. 


Apple Il+, //a 


Cet utilitaire vous permet de : 


(se 


O O0 O0 O0 


Gérer des masques ou écrans 40 ou 80 
colonnes. Ces écrans, définis lors de la 
programmation, s'affichent par la simple 
commande JA. 

Saisir toutes les variables d'un écran en 
une seule commande ] en contrôlant le type et 
la longueur. 

Recopier l'écran 40 ou 8O colonnes sur 
l'imprimante par }H. 

Faire Un nettoyage mémoire 
collection)très rapide par F. 
Gérer des messages. la 
contrôlée. 

Mais aussi, ne saisir que l'une des variables 
affectées à un écran, les afficher, les effacer. 
etc. 


(garbage 


réponse étant 


Tous les fichiers source sont sur la disquette. 
(Æxemple de démonstration dans le Pom's 13) 


Disquette et documentation : 150,00 F TIC franco 
{bon de commande page 74). 
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Pour mettre un terme à cette série, 
dont l'univers impitoyable vous aura 
sans nul doute fascinés, nous vous 
proposons un dernier exercice de 
style. Une fois encore, son intérêt 
pratique vous paraîtra quelque peu 
limité, hormis certains cas d’applica- 
tion très spécifiques, mais il nous 
fournira l’occasion d’une large réca- 
pitulation. En particulier, nous appro- 
fondirons les possibilités d'interaction 
entre le Basic Applesoft et les routi- 
nes en langage machine que vous 
pourriez juger bon de lui adjoindre 
dans le cadre de vos travaux de pro- 
grammation. 


Pour préciser notre sujet, rappelons 
tout d’abord que l’on conseille sou- 
vent aux programmeurs en Applesoft 
de placer en début de programme 
toutes les sous-routines faisant l’objet 
d'appels fréquents, afin de gagner en 
vitesse lors de l'exécution. Il n’est pas 
rare non plus de justifier ce conseil 
en expliquant que, lorsque l’Apple- 
soft rencontre une instruction de 
branchement du type GOTO 100, 
ou GOSUB 50, il recherche la ligne 
sur laquelle doit s'effectuer le bran- 
chement en explorant le programme 
à partir du début jusqu'à ce qu'il ait 
trouvé le bon numéro de ligne. 

En fait, si le conseil est généralement 
bon, l'explication correspondante 
n'est qu'à moitié correcte. En effet, 
les concepteurs de l’Applesoft n'ont 
pas oublié de réfléchir en écrivant 
leur Basic. Ainsi, la recherche de 
ligne ne part du début du pro- 
gramme que si le poids fort du nu- 
méro de la ligne où l’on doit se bran- 
cher (après conversion en 
hexadécimal, bien sûr) est inférieur 
ou égal au poids fort du numéro de 
la ligne dans laquelle on rencontre 
l'instruction de branchement (nu- 
méro stocké en $75-$76 par l'inter- 
préteur). Dans le cas contraire, cette 
recherche part de la ligne suivant 
celle en cours d'exécution et se dirige 
vers la fin du programme. 


Il en résulte que la structure sui- 
vante : 

10 à 1000 : 500 lignes de Basic 
1010 GOSUB 1030 

1020 GOSUB 1030 : GOTO 1040 
1030 : traitement quelconque 
1040 : suite du programme... 

sera plus efficace que celle-ci : 

10 à 100 : 10 lignes de Basic 

110 : traitement quelconque 

120 à 1000 : 489 lignes de BASIC 
1010 GOSUB 110 

1020 GOSUB 110 

1030 suite du programme... 


Pom's n° 17 


Pour examiner les choses plus en dé- 
tails, reportez-vous plus loin à l’ana- 
lyse de la routine de traitement des 
instructions GOTO, qui débute en 
$D93E. Cette routine est toujours 
utilisée, directement ou non, dès 
qu'un branchement doit être effec- 
tué, que ce soit par GOTO, GOSUB, 
ONERR ou ON... 


Il est bien évident que ce problème 
de structure ne pèse significativement 
sur les performances d’un pro- 
gramme que lorsque les branche- 
ments s'avèrent particulièrement 
nombreux et que la taille de l’ensem- 
ble est importante. Dans ce cas, il 
devient rentable de se préoccuper de 
la position des différentes routines en 
fonction de leur fréquence d'appel et 
des lignes à partir desquelles elles 
sont appelées. 


Par ailleurs, on pourrait s'affranchir 
de ces problèmes de structure si l’on 
stockait dans le programme l'adresse 
de la ligne à laquelle on doit se bran- 
cher et non son numéro. 

Ainsi, GOSUB 1000 est mémorisé 
sous la forme : 

BO 31 30 30 30 

Si l’on sait que l'adresse de la ligne 
1000 dans la zone du programme est 
$20B2, si l'on peut alors stocker 
l'instruction sous la forme : 

BO B2 20 

et faire en sorte que l'interprétation 
de GOSUB (token BO) puisse utiliser 
B2 20 pour se brancher directement 
en $20B2, peu importent alors la 
structure du programme et les en- 
droits d’où l’on appelle cette ligne 
1000. La phase de recherche des 
lignes étant dissociée de l'exécution 
du programme, les branchements se 
feront toujours à la même vitesse, 
quelles que soient les positions relati- 
ves des points de départ et d'arrivée. 


C'est à ce type de manipulation que 
nous allons donc nous attaquer, ce 
qui suppose deux catégories de trai- 
tements : 

— Remplacement dans un pro- 
gramme des numéros de lignes de 
branchement par leurs adresses ef- 
fectives. 

— Adaptation de l’interpréteur Apple- 
soft pour que les instructions de 
branchement puissent utiliser directe- 
ment ces adresses. 


Calcul des 
adresses 
Notre programme Applesoft étant 


chargé en mémoire, il nous faut dis- 
poser d’une routine qui puisse l’ex- 


Initiation à l’assembleur (7) 


Gérard Michel 


plorer du début à la fin, repérer les 
instructions de branchement, calculer 
les adresses des lignes correspondan- 
tes et remplacer ensuite les numéros 
de ces lignes par les adresses ainsi 
obtenues. 


Pour nous simplifier la tâche, nous 
utiliserons la routine de l’Applesoft 
qui traite le GOTO pour le calcul des 
adresses. Nous en ferons donc une 
brève analyse au moyen des deux 
listes ci-dessous. 


*D93ELL 

D93E- 20 OC DA JSR  $DA0C 
D941- 20 A6 D9 JSR  $D9Aé 
D944- AS 76 LDA #74 
D946- C5 51 CMP $51 
D948-  B0O 0B BCS  #$0955 
D?4A- 98 TYA 

D948- 38 SEC 

D94C- 65 B8 ADC  $88 
D94E- A6 B? LOX #89 
D950- 90 07 BCC  $D959 
D9S2- E8 INX 

D953-  BO 04 BCS #D959 
D9S5- A5 67 LDA #67 
D957- Aé 68 LDX #68 
D959- 20 1E Dé JSR  $Dé1iE 
D9SC- 90 1E BCC S$D97C 
D9SE- A5 9B LDA #98 
D9é0- E9 01 SsBC £#01 
D962- 85 88 STA 588 
D964- AS 9C LDA #90 
D9éé-  E9 00 SBC £500 
D968- 85 89 . STA 89 
D96A- 40 RTS 

*Dé1ELL 

DéiE- A0 01 LDY  £s$01 
Dé20- 85 9B STA 98 
Dé22- 86 9C STX #90 
Dé24- Bi 9B LOA  (89B),Y 
Dé26- FO 1F BEQ #D647 
Dé28- C8 INY 

D629- C8 INY 

Dé2A- AS 51 LDA #51 
Dé2C- Di 9B CMP (#98) ,Y 
Dé2E- 90 18 BCC  +%D648 
D630- FO 03 BEQ  $D635 
D632- 88 DEY 

D633- DO 09 BNE  $D63E 
D635- A5 50 LDA #50 
D637- 88 DEY 

Dé38- Di 98 CMP (#98) ,Y 
Dé3A- 90 0C BCC  $D648 
Dé3C- FO 0A BEQ  #$0648 
D63E- 88 DEY 

Dé3F- Bi 98 LDA  ($98),Y 
Dé4i- AA TAX 

Dé42- 88 DEY 

Dé43- Bi 98 LDA  (S9B),Y 
Dé45- BO D7 BCS $D61E 
Dé47- 18 CLC 

Dé48- 40 RTS 


— Lorsqu'on arrive en $D93E, $B8- 
$B9 pointe sur le premier octet du 
numéro de la ligne de branchement, 
qui est également contenu dans l’ac- 
cumulateur À (voir l’Initiation à l’as- 
sembleur du Pom's 16). 

La routine en $DAOC convertit ce 
numéro de ligne en hexadécimal et 
le range en $50-$51 (poids faible / 
poids fort). 

— Au retour de la routine en $D9A6, 


Y contient le nombre d’octets restant 
dans la ligne courante après celui 


23 


pointé par $B8-$B9 (0 de fin de 
ligne compris). 

— On compare ensuite le poids fort 
du numéro de ligne courante (en 
$76) avec celui du numéro de la 
ligne de branchement (en $51). Si le 
premier est supérieur ou égal au se- 
cond (test BCS positif), la recherche 
partira du début du programme. 


— Si le contenu de $51 est supérieur 
à celui de $76, on calcule A = ($B8) 
+ Y + 1 (notez le SEC avant ADC 
$B8), et on met dans X la valeur de 
$B9, éventuellement incrémentée de 
1 si une retenue s'est dégagée du 
calcul de A. On a donc en À et X 
l'adresse du début de la ligne sui- 
vante (poids faible / poids fort) et on 
passe en $D959. 

Dans le cas contraire, on met dans A 
et X l'adresse du début du pro- 
gramme, pointée par $67-$68. 


— Sous-routine en $D61E : 

e $9B-$9C contiendra toujours 
l'adresse de début de la ligne en 
cours d'examen. Lorsqu'on vient 
de $D959, on initialise $9B-$9C à 
l'adresse de la ligne marquant le 
début de la recherche (début du 
programme, ou ligne suivant celle 
qui contient l'instruction de bran- 
chement). 

e En $D624, on récupère dans A le 
poids fort de l'adresse de la ligne 
suivant celle qu'on analyse. Si 


cette valeur est nulle, on est en fin 
de programme et on saute en 
$D647, où le CLC (C=0) permet- 
tra ensuite de générer un message 
d'erreur (numéro de ligne inexis- 
tant). 

Sinon, on compare le poids fort 
du numéro de ligne cherché à 
celui du numéro de la ligne en 
cours. 

Si le test BCC de $D62E est posi- 
tif, c'est qu’il y a erreur quelque 
part, puisque le mode de choix du 
début de la recherche fait que la 
valeur de $51 est normalement 
supérieure ou égale au poids fort 
du numéro de la première ligne 
examinée, et a fortiori des lignes 
suivantes. 

Si c'est le même poids fort, on va 
comparer les poids faibles en 
$D635. Sinon, on va passer à la 
ligne suivante en $D63Ë. 

En $D635, même processus pour 
les poids faibles, avec erreur éga- 
lement si le test BCC de $D63A 
est positif. 

Si le test BEQ de $D63C est posi- 
tif, on a trouvé notre ligne et son 
adresse de début est en $9B-$9C. 
Sinon, passage à la ligne suivante. 
On va mettre en A et X l'adresse 
de la ligne suivante et reprendre la 
routine au début. Le test BCS est 
obligatoirement positif, puisque 
l'on vient de passer sans succès 


un BCC dans le cas des poids 
forts ($D62E) comme dans celui 
des poids faibles ($D63A). 


— Au retour de $D61E, en $D95C, 
C=0 signale une erreur et on saute 
au traitement correspondant. 

Sinon, on met en $B8-$B9 l'adresse 
de la ligne trouvée et contenue en 
$9B-$9C, mais diminuée de 1 afin 
de respecter les règles d'analyse de 
a en Applesoft (vois Pom's 
16). 


En résumé, la réalisation d'un bran- 

chement en Applesoft se traduit par : 

© Recherche de la ligne dont le nu- 
méro est donné après l'instruction 
de branchement. 

e Transfert de l'adresse de cette 
ligne dans la zone de programme 
dans le pointeur de programme 
$B8-$B9, afin que l'analyse de 
l'interpréteur reparte ensuite sur 
cette ligne (après le RTS de 
$D96A, on arrivera sur le JMP 
$D7D2 de $D823). 


Maintenant que nous savons 
comment fonctionne la routine de 
calcul d'adresses, examinons la rou- 
tine que nous utiliserons pour l’ex- 
ploiter. 

Le programme Applesoft concerné 
étant chargé en mémoire, nous lan- 
cerons l'exécution de la routine dont 
le source est listé ci-dessous : 





Source Big Mac 29 LDA $B8 :PLACE $88 
-$B9 AU DEBUT DE L’INSTRUCTION 
Programme COMPG2.S 30 CLC 
LRU EDEN DEN EME DE DE DE EDEN DE EEE XX 31 ADC £3 
2:X * 32 STA $B8 
3 *  REMPLACE LES NO DE LIGNES  * 33 BCC S4 
4 x DES BRANCHEMENTS PAR LES - 34 INC $B9 
5 * ADRESSES DE CES LIGNES : 35 54 JSR $B1 ; LECTURE C 
é * CODE = COMPG2 * ARACTERE DU PROGRAMME 
7 * * 36 BNE S1 
8 ##x4 24226 26 26 JE DE DE DE DE DE D DE DE 6 JE DE 36 6 6 DE DE DE JE DE DE JE 6 € 37 S7 CMP £$34 H CE 
7 * 38 BEQ S4 ; LECTURE C 
10 ORG +300 ARACTERE SUIVANT 
11 LDA $67 3INITIALIS 39 LDA #58 
ATION POINTEUR DE PROGRAMME 40 STA $B8 ; PASSE À L 
12 STA +$B8 À LIGNE SUIVANTE 
13 LDA +$68 41 LDA +9 
14 STA +$B9 42 STA $89 
15 S2 LDY £i ;POIDS FOR 43 BNE S2 
T ADRESSE LIGNE SUIVANTE = 0 44 $1 CMP  £$AB ;GOTO ? 
16 LDA ($B8),Y ; IMPLI QUE 45 BEQ S3 
FIN DU PROGRAMME 46 CMP  £$B0 ;GOSUB ? 
17 BNE So 47 BEQ 53 
18 JMP  $D43C 48 CMP  £$C4 ; THEN ? 
19 S0 STA #9 ; SAUVE GARD 49 BNE S4 
E ADRESSE LIGNE SUIVANTE 50 LDY £i 
20 DEY 51 LDA ($B8),Y 
21 LDA ($B8),Y 52 CMP  £$3A 
22 STA $8 53 BCS Ss4 ;CE N’EST 
23 LDY £2 PAS UN NO DE LIGNE QUI SUIT "THEN" 
24 LDA ($B8),Y ;MAJ NUMER 54 DEY 
O DE LIGNE COURANTE 55 LDA £$AB 
25 STA #$75 5é STA ($B8),Y ; REMPLACE 
26 INY "THEN" PAR “GOTO"* 
27 LDA ($B8),Y 57 S3 JSR +Bi ; LECTURE 1 
28 STA #$76 ER CHIFFRE DU NO DE LIGNE 
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58 LDY $B8 3 SAUVE GARD 73 LDA $é 
E POINTEUR DE PROGRAMME 74 STA $B8 3 RESTAURE 

59 STY $é POINTEUR DE PROGRAMME 

60 LDY. $B9 75 LDA $7 

61 STY $7 : 76 STA $B9 

62 CMP  £$30 30 “BOUCHE 77 INC +$B8 :$B8-$B9 P 
—TROU* ? OINTE SUR 2EME OCTET ADRESSE LIGNE 

63 BNE SS 78 BNE Sé 

64 JSR $Bi 31ER CHIFF 79 INC #$B9 
RE SIGNIFICATIF 80 Sé LDY £0 

és S5 JSR #$B7 3 RECHARGE 81 Ss8 JSR $B1 ; LECTURE 0 
ACCUMULATEUR CTETS SUIVANTS ADRESSE LIGNE 

éé JSR $D93E 3; ROUTINE * 82 BEQ S7 5 FIN INSTR 
GOTO* DE L'’APPLESOFT UCTION ? 

67 LDY £0 83 BCS S3 5; FIN DE "QG 

68 LDA $B8 UEUE*" DE NO DE LIGNE 

69 STA ($6),Y ; REMPLACE 84 LDA £$3A ; REMPLACE 
NO DE LIGNE PAR SON ADRESSE CHIFFRE PAR ":" 

70 INY 85 STA ($B8),Y 

71 LDA +$B9 86 BNE S8 

72 STA (#6) ,Y 


— Lignes 11 à 14: initialisation du 
pointeur $B8-$B9 à l'adresse de 
début du programme. 

— Lignes 15 à 18 : si le poids fort de 
l'adresse de la ligne suivante est nul, 
on est en fin de programme et on re- 
vient au Basic par un JMP $D43C. 

— Lignes 19 à 22: on sauve 
l'adresse de la ligne suivante en $8- 


— Lignes 23 à 28: on met le nu- 
méro de la ligne en cours de traite- 
ment en $75-$76. 

— Lignes 29 à 34: on met en $B8- 
$B9 l'adresse du premier octet de la 
première instruction de la ligne, dimi- 
nuée de 1 (à 3 octets du début de la 
ligne). 

— Lignes 35 et 36: lecture d’un ca- 
ractère de la ligne. Si ce n'est ni O ni 
7.7, on passe en SI. 

— Lignes 37 et 38: si c'est ”:” 
(#$3A), on passe au caractère sui- 
vant. 

— Lignes 39 à 43: on est en fin de 
ligne (A=0) et on passe à la sui- 
vante. 

— Lignes 44 à 47: si c'est le token 
de GOTO (#$AB) ou celui de 
GOSUB (#$B0), on va en S3. 

— Lignes 48 et 49: si ce n'est pas 
THEN (#$C4), on retourne en Sd. 

— Lignes 50 à 53 : si l’octet qui suit 
le token de THEN n'est pas inférieur 
à #$3A, c'est qu'il ne s'agit pas du 
début d'un numéro de ligne (instruc- 
tions du type THEN CC=0). Dans 
ce cas, on retourne en Sd. 

— Lignes 54 à 56: s'il s'agit bien 
d'un THEN suivi d'un branchement, 
on remplace le token de THEN par 
celui de GOTO, afin de n'avoir en- 
suite qu'un cas à examiner dans la 
modification de l’interpréteur. Consé- 
quence : n'utilisez pas d'instructions 
redondantes ‘THEN GOTO” dans 
vos programmes ‘source’, car 
"GOTO GOTO” serait plus tard re- 
jeté par l'interpréteur. 
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— Lignes 57 à 61 : lecture de l'octet 
qui suit le token de l'instruction de 
branchement et sauvegarde de 
l'adresse de cet octet en $6-$7. 

— Lignes 62 à 64: l'adresse d’une 
ligne occupe toujours deux octets, 
alors que le numéro de cette ligne, 
stocké en ASCII, peut n'en prendre 
qu'un s’il est inférieur à 10. Afin de 
ne pas avoir à décaler le programme 
en mémoire dans ce cas, nous adop- 
terons comme convention que, dans 
le source” Applesoft, les numéros 
de ligne inférieurs à 10 doivent être 
précédés de O0 On écrira ainsi 
"GOTO 05” et non ”’GOTO 5”. 
Cette solution n’est certes pas la plus 
élégante, mais elle simplifie et accé- 
lère la routine de calcul d'adresses. 
On regarde donc ici si le premier 
octet du numéro de ligne est un 0 
(#$30), auquel cas on doit lire le 
premier octet significatif de ce nu- 
méro par un autre JSR $B1. 

— Lignes 65 et 66 : relecture du pre- 
mier octet du numéro de ligne par 
JSR $B7, afin de s'assurer qu'il est 
bien chargé dans À et que les indica- 
teurs du registre d'état sont correcte- 
ment positionnés, puis appel de la 
routine GOTO qui va calculer 
l'adresse de la ligne. 

— Lignes 67 à 72: l'adresse de la 
ligne est en $B8-$B9. On la remet à 
la place des deux premiers octets du 
numéro de ligne, dont l'adresse est 
toujours contenue en $6-$7. On 
trouve donc maintenant derrière le 
token de l'instruction de branche- 
ment, l'adresse de la ligne sur la- 
quelle doit se faire ledit branche- 
ment. 

— Lignes 73 à 76: restauration du 
pointeur $B8-$B9 à l'adresse du pre- 
mier octet qui suit le token. 

— Lignes 77 à 81: lecture du pre- 
mier octet qui suit l'adresse de la 
ligne que l’on vient de stocker dans 
le programme. 


EE _ _ _ _ _ _ _ __ _ _ _ _* 


— Ligne 82: si l’octet en question 
est 0 ou ‘:” (test BEQ positif), on a 
parcouru tous les octets résiduels de 
l'ex - numéro de ligne et on arrive à 
l'instruction suivante. On reprend 
donc la recherche des instructions de 
branchement éventuelles. 

— Ligne 83: normalement, ce test 
BCS ne sera positif que si l’octet lu 
par $B1 est inférieur à #$30, et plus 
précisément s'il s’agit du code de la 
virgule (#$2C). Tout autre cas relè- 
verait d'une erreur de syntaxe au ni- 
veau du programme Applesoft (ins- 
tructions telles que ’GOTO 100 Z = 
0”, par exemple). 

Ce test vise donc à traiter le cas des 
instructions du type ON Z GOTO 
100, 200, 300”. En retournant en 
S3, on va ainsi calculer les adresses 
des autres lignes de branchement 
possibles. 

— Lignes 84 à 86 : l'octet lu est cette 
fois normalement un chiffre faisant 
partie du numéro de ligne initial (nu- 
méros à plus de deux chiffres). On le 
remplace par un ’:” (#$3A) afin 
d'éviter les erreurs de syntaxe ulté- 
rieures lors de l'exécution du pro- 
gramme modifié. Ensuite, on va lire 
l'octet suivant pour voir si l’on est ar- 
rivé ou non à la fin du numéro de 
ligne. 


Lorsque cette routine a terminé le 
calcul des adresses, elle vous rend la 
main en mode immédiat du Basic. Si 
vous faites un LIST du programme 
désormais en mémoire, vous risquez 
fort de voir apparaître des instruc- 
tions très exotiques, comme par 
exemple : 


GOTO HGR ‘ :: 


En effet, une instruction GOTO 
10000, qui était stockée sous la 
forme : 

AB 31 30 30 30 30 


le sera maintenant sous la forme : 
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AB 91 22 3A 3A 3A 

si $2291 est l'adresse, moins 1, de la 
ligne 10000. 

En passant sur cette instruction, la 
routine de LIST ne pourra que déco- 
der ce qu'elle trouve et vous affi- 
chera donc ’GOTO HGR ‘”::”. 
N'en soyez pas trop surpris. 


Il est évident, par ailleurs, que de 
telles instructions ne pourront être 
exécutées sans problème lors d’un 
RUN que si l’on modifie l’interpré- 
teur Applesoft en conséquence. C’est 
un point délicat qu'il nous reste 
maintenant à examiner. 


Interprétation des 
branchements sur 
adresses 


Le programme Applesoft qui se 
trouve maintenant en mémoire 
comporte donc des instructions exoti- 
ques de branchement sur adresses 
dont il convient d'assurer l'exécution. 
Depuis Pom's 16, nous savons qu'il 
est possible de placer une indirection 
dans la routine CHRGET, qui 
commence à l'adresse $B1, afin de 
constituer une ‘’annexe” de l’inter- 
préteur, dans laquelle on peut traiter 
des instructions originales ou modifier 
le traitement correspondant aux ins- 
tructions standard. C’est encore la 
solution que nous adopterons ici 
pour la manipulation des branche- 
ments sur adresses. Ainsi, dans le cas 
présent, un saut ‘JMP $9000” est 
implanté à l'adresse $BA, et la rou- 
tine commençant en $9000 sera 
chargée de filtrer les instructions 
avant de les transmettre, éventuelle- 
ment intactes, à l’interpréteur. 


Avant d'analyser cette routine, il 
nous faut insister sur deux catégories 
de problèmes propres à la nature des 
opérations réalisées. 


— La routine CHRGET retourne l'in- 
dicateur de retenue (C) à O dans le 
cas où le caractère lu est le code 
ASCII d’un chiffre (#$30 à #$39), 
et dans ce cas seulement. L’Apple- 
soft utilise cette particularité chaque 
fois qu'il analyse des instructions qui 
doivent être suivies d’un nombre, 
telles que GOTO 100 : après lecture 
du premier caractère suivant le token 
de GOTO), la routine d'acquisition du 
numéro de ligne ($DAOC) comporte 
des tests BCS, en retour de 
CHRGET, qui provoquent une er- 
reur s'ils sont positifs. 

Nos adresses de lignes, issues des 
calculs, comporteront inévitablement 
des octets à l'extérieur de la plage 
#$30 — #$39, qui fourniront un in- 
dicateur C=1 après leur lecture par 
CHRGET, là où les routines standard 
de l’Applesoft attendent C=0. 

Ceci ne pose guère de problèmes 
pour l'analyse des tokens maîtres”, 


comme dans l'instruction ‘10 GOTO 
adresse”. En interceptant le GOTO, 
on sait qu'il nous faut ensuite récu- 
pérer l'adresse sans se préoccuper de 
la valeur du bit C et on peut contrô- 
ler l'ensemble du processus. 

Il n’en va pas de même pour des ins- 
tructions du type ‘10 IF <condi- 
tion> GOTO adresse”. Si l'on ne 
veut pas refaire ce qui existe, le trai- 
tement de IF et l'analyse de la condi- 
tion seront laissés à l’Applesoft, évi- 
demment, et l'interprétation 
ultérieure de ‘’GOTO adresse” se 
fera sous contrôle de la routine de 
IF, qui se préoccupera de la valeur 
de C au moment de lire ce qu'elle 
considère comme un numéro de 
ligne et de passer la main à la rou- 
tine de GOTO. De plus, le traitement 
de IF risque fort, à un moment ou 
un autre, de lire le GOTO pour véri- 
fier que l'énoncé de la condition est 
terminé. Si nous interceptons alors le 
GOTO pour réaliser automatique- 
ment le branchement, il n'y a plus de 
test et le IF n'est pas correctement 
exécuté. 

La conséquence principale de ce 
problème réside dans le fait que l'on 
ne peut pas écrire une routine géné- 
rale d’interception des GOTOSs et 
GOSUBs, basée sur le principe d'une 
interprétation prioritaire. Une telle 
routine reposerait sur une intercep- 
tion au niveau du “JSR $00B1” de 
l'adresse $D81D (voir Pom's 16). 
Etant donné que l’on ne passe pas 
en $D81D pour lire GOTO ou 
GOSUB lorsqu'ils ne sont pas tokens 
maîtres, il faudrait alors intercepter 
également les IFs et faire en sorte 
qu'ils acceptent des branchements 
sur adresses, en bout de course, si la 
condition est satisfaite. Cela ne ferait 
qu'élargir le problème à la modifica- 
tion du traitement d'une autre ins- 
truction, en sus des branchements. 
Pour tourner la difficulté, nous adop- 
terons une analyse a posteriori: la 
décision de branchement sera prise 
lorsque le caractère lu, avant celui 
que l’on est en train d'examiner, est 
le token d'une instruction de bran- 
chement, et dans la mesure où le 
sommet de la pile traduit bien le fait 
que l'interpréteur travaille effective- 
ment sur une telle instruction. Enon- 
cée de la sorte, la chose paraît certes 
un peu complexe, mais elle le sera 
moins lorsque nous entrerons dans 
les détails. 


— Nous tenterons de traiter ici tous 
les branchements, simples comme 
GOTO, multiples comme ON 


GOTO, mais aussi le ONERR 
GOTO. 
Dans ce dernier cas, il convient, 


d'une part, de placer l’adresse de la 
routine Basic de ONERR à l'endroit 
idoine et, d'autre part, de récupérer 
le contrôle des opérations lorsqu'une 
erreur se produit, ce qui suppose que 
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l'on sache qu'une erreur vient de se 
produire. 

On retrouve en fait un problème gé- 
néral au niveau de notre routine : sa- 
voir d’où l'on vient, c’est-à-dire de 
quelle adresse a été appelée 
CHRGET et donc notre indirection 
en $9000. Comme vous pourrez le 
constater plus loin, c’est la pile du 
processeur qui nous fournira les ré- 
ponses. 


Environnement 


Le fonctionnement de la routine qui 
exécute les instructions ($D7D2) a 
été détaillé dans l’article précédent. 
De plus, nous avons vu plus haut 
comment procède la routine standard 
de GOTO. La routine de GOSUB 
utilise tout simplement la routine 
GOTO, mais dépose au préalable au 
sommet de la pile les éléments qui 
permettront au RETURN de revenir 
au bon endroit (vous n'aurez aucune 
peine à analyser la routine GOSUB, 
qui débute en $D921). Ces deux 
routines seront complètement rem- 
placées par les nôtres dans l’indirec- 
tion $9000. 


Pour clarifier la suite du propos, il 
peut être bon de préciser par ailleurs 
comment fonctionnent les routines 
de IF et de ON .., et comment se 
passe la prise en charge d’une erreur 
lorsque ONERR est actif. 


Routine IF 


La petite liste ci-dessous, extraite de 
la ROM Applesoft, constitue le coeur 
de la routine de IF : 


#D9C9L 

D?C?- 20 78 DD JSR $0078 
D?CC- 20 87 00 JSR 50087 
D9CF- C7 AB CMP £548 
D?01- F0 05 BEQ $D908 
D903- A9 C4 LDA £$c4 
D?05S- 20 CO DE JSR $DECO 
D908- AS 90 LDA $?0 
D?DA- Do 05 BNE $09E1 
D?DC- 20 fé D9 JSR $07A46 
D?DF- F0 B7 BEQ $0978 
D9E1- 20 87 00 JSR $0087 
D9E4- 80 03 BCcs $09E9 
D9Eé- 4C 3€ D9 JMP $093E 
D9E9- 4C 28 D8 JMP +0828 


$DD7B est la partie la plus impor- 
tante (analyse et test de la condition) 
mais elle ne concerne pas notre 
sujet. 

Après l'analyse du JSR $DD7B, on 
recharge en A le caractère pointé par 
$B8-$B9 (JSR $B7), qui peut être 
GOTO (#$AB), et doit être THEN 
(#$C4) si ce n'est pas GOTO (sinon, 
$DECO finira sur une SYNTAX 
ERROR. Si c'est THEN, $DECO per- 
mettra de lire l’octet qui suit le 
THEN). 

Si la condition n’est pas satisfaite, 
$9D contient 0. Dans ce cas, on met 
le nombre d’octets restants dans la 
ligne (après celui pointé par $B8- 
$B9) dans YŸ par JSR $D9A6. Le 
dernier caractère lu par $D9A6 est le 
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Cu 


O de fin de ligne et le test BEQ 
amène donc en $D998 qui pointe 
$B8-$B9 sur l'octet précédant la 
ligne suivante et amène au JMP 
$D7D2 de l'adresse $D823 par un 
simple RTS final. On vérifie ainsi que 
condition non satisfaite” se traduit 
en Applesoft par ‘passage à la ligne 
suivante”. 

Si la condition est satisfaite, on arrive 
en $D9EI. On relit le caractère 
pointé par $B8-$B9 (JSR $B7), qui 
peut être soit le token de GOTO), soit 
l'octet suivant le token de THEN 
(c'est-à-dire un autre token, le pre- 
mier chiffre d’un numéro de ligne ou 
le premier caractère d'un nom de va- 
riable). Si c'est un chiffre, C=0 au 
retour de $B7, et on sort par JMP 
$D93E (THEN 100 est donc bien 
traité comme GOTO 100). Si ce 
n'est pas un chiffre (C=1), on sort 
par JMP $D828; on revient donc 
dans l’interpréteur comme si l’on ve- 
nait de lire une variable ou un token 
“maître” (comme si l’on venait du 
JSR $D828 de l'adresse $D820). 


Dans notre routine de calcul d’adres- 
ses, nous avons fait en sorte de 
n'avoir plus que des instructions du 
type ’IF GOTO adresse”, qui 
aboutiront donc en $D828, exacte- 
ment comme nos instructions directes 
"GOTO adresse”. De même, les ins- 
tructions  ” THEN  GOSUB 
adresse” arriveront en  $D828 
(comme un GOSUB simple) lorsque 
se posera le problème de réaliser le 
branchement. 

Cette brève analyse de IF montre par 
ailleurs que l’on ne pourrait effective- 
ment pas intercepter le GOTO direc- 
tement au moment où il est lu par 
CHRGET : le JSR $B7 de l'adresse 
$D9CC, par exemple, provoquerait 
alors le branchement avant même 
que l’on sache si la condition est sa- 
tisfaite pour justifier ce branchement. 
De plus, le fait que l’on passe par 
$B7 pour relire le token de GOTO 
prouve que $B8-$B9 pointe déjà sur 
GOTO, qui a donc été lu, dans les 
traitements recouverts par JSR 
$DD7B, au moyen d’un saut à $B1. 
Les risques de branchement préma- 
turé sont ainsi fort nombreux et justi- 
fient un traitement a posteriori, via le 
passage par $D828 qui se termine, 
rappelons-le, par un JMP $B1. 


Routine de ON 


Vous trouverez ci-dessous un bref 
extrait de la routine ON : 


#*D9ECL 

D9EC- 20 F8 Eé JSR $E6F8 
D9EF- 48 PHA 

D?F0- c? 80 CMP £#80 
D9F2- FO 04 BEQ $09F8 
D9F4- C? AB CMP £tAB 
D9F6- Do 8? BNE $0981 
D?F8- Cé A! DEC $AI 
D?FA- DO 04 BNE $DA00 
D9FC- 68 PLA 

D9FD- 4C 2ÂÀ D8 JMP $082A 
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DA00- 20 81 00 JSR $0081 
DA03- 20 0C DA JSR $DAO0C 
DAGé- c? 2C CMP £$2C 
D808- F0 EE BEQ $D07F8 
DA0A- 68 PLA 

DAOB- 60 RTS 

DAGC- A2 00 LOX £#00 
DAOE- 86 50 STX $50 
DA10- 86 51 STX ss! 
DA12- 80 F7 BCS $DA0B 


La sous-routine appelée par JSR 
$E6F8 se charge d'évaluer l'expres- 
sion dans l’instruction "ON <expres- 
sion> GOTO / GOSUB”. Au retour, 
la valeur concernée est stockée en 
$A1, et $B8-$B9 pointe sur le pre- 
mier octet qui suit l'expression (cet 
octet est également en A). 

L'octet suivant l'expression est em- 
pilé. Ce peut être le token de 
GOSUB (#$B0) ou celui de GOTO 
(#$AB); sinon : SYNTAX ERROR. 
En $D9F8, on décrémente $A1. Si la 
valeur de $A1 tombe alors à 0, on 
dépile le token de l'instruction et on 
retourne dans l'interpréteur en 
$D82A, c'est-à-dire, une fois encore, 
comme si l’on venait de lire GOTO 
ou GOSUB comme token maître”. 
Ainsi, si $Al contenait la valeur 1, 
on passe à 0 au premier DEC $A1 et 
on saute en $D82A en pointant sur 
GOTO ou GOSUB : l'interprétation 
du token réalisera alors le branche- 
ment sur le numéro de ligne qui suit 
l'octet pointé par $B8-$B9 à l'entrée 
dans $D82A, donc le premier nu- 
méro donné dans l'instruction ON, 
ce qui est conforme aux résultats ob- 
servés lorsque vous utilisez ce type 
d'instruction. 


Si $AI ne tombe pas à 0, on lit l’oc- 
tet suivant (JSR $B1) et on appelle 
$DAOC. Cette routine se charge 
d'évaluer le numéro de ligne pointé 
par $B8-$B9 à l'entrée. Elle procède 
par des JSR $B1 successifs, jusqu’à 
ce que $B1 lui retourne un C=1 (ca- 
ractère lu n’est pas un chiffre). Au re- 
tour, À contient l’octet qui suit le nu- 
méro de ligne, octet par ailleurs 
pointé par $B8-$B9. 

Normalement, le séparateur des nu- 
méros de ligne dans un ON est la 
virgule (#$2C). Si l’on récupère bien 
une virgule en retour de $DAOC, on 
retourne alors en $D9F8. Ainsi, si 
$A1 contenait 2 au départ, on est 
passé à 1 lors du premier DEC $A1. 
On passe donc le premier numéro de 
ligne et on pointe sur la première vir- 
gule après JSR $DAOC. En retour- 
nant à $D9F8, $AI1 tombe cette fois 
à 0 et on saute à $D82A. Comme A 
contient le token de l'instruction 
GOTO ou GOSUB, l'analyse du 
token et le choix de la routine corres- 
pondante se fera correctement. Le 
branchement sera ensuite réalisé sur 
le numéro de ligne qui suit l’octet 
pointé par $B8-$B9 à l'entrée dans 
$D82A, c'est-à-dire le numéro qui 
suit la première virgule, ou encore le 
second numéro indiqué, qui corres- 
pond bien à la valeur 2 pour l’ex- 





pression de "ON <expression> ….”’. 
Ce processus d'avancée du pointeur 
$B8-$B9 se poursuivra ainsi toujours 
jusqu'à la virgule qui précède le nu- 
méro de ligne dont le rang dans la 
liste des numéros de ligne corres- 
pond à la valeur de l'expression. 

Par contre, si l’on ne récupère pas 
une virgule en retour de $DAOC, on 
dépile simplement le token et on sort 
par RTS. Comme l'interprétation se 
fait sous le contrôle du JSR $D828 
de l'adresse $D820, on revient en 
$D823 qui nous renvoie en $D7D2 
pour l'analyse d'une autre instruc- 
tion. Cette situation résulte soit d’une 
valeur nulle pour expression”, soit 
d’une valeur supérieure au nombre 
de numéros de ligne donnés dans la 
liste (la valeur nulle relève du même 
principe, puisqu'on part de #$FF 
après le premier DEC $A1). Dans ce 
cas, on à avancé le pointeur $B8- 
$B9 jusqu'au premier octet qui suit 
la liste des numéros de ligne (norma- 
lement ”’:” ou 0 de fin de ligne) : par 
$D7D2 on passe donc à l'instruction 
ou à la ligne suivante. On vérifie bien 
que, si expression” vaut 0 ou une 
valeur supérieure au nombre d’items 
prévus, l'instruction ON ‘expression’ 
… fait simplement passer à la suite, 
sans réaliser de branchement. 

Pour mémoire, notons qu’une erreur 
de syntaxe dans le ON (mauvais sé- 
parateur de numéros de ligne) pro- 
voquerait également la sortie par 
RTS. Mais on ne serait pas alors 
dans une situation conforme pour 
$D7D2, d'où SYNTAX ERROR. 


Dans notre indirection, nous n’inter- 
cepterons pas les ON”, afin de ne 
pas devoir refaire tout ce qui précède 
la phase de branchement propre- 
ment dite. En revanche, nous pren- 
drons la main lors du JSR $B1 de 
l'adresse $DAO0, afin de déplacer 
nous-mêmes le pointeur $B8-$B9 et 
l'amener jusqu’à l'adresse de bran- 
chement adéquate. Quant au bran- 
chement, nous l'intercepterons en- 
suite a posteriori, via le passage de 
ON par $D82A, selon les mêmes 
principes que pour IF. 


Prise en charge 
d’erreur par ONERR 


Lorsque ONERR est actif, la surve- 
nance d’une erreur se traduit finale- 
ment par un branchement en $F2E9. 
Cette routine rétablit certains para- 
mètres pour donner la main au sous- 
programme de traitement des erreurs 
et, en particulier, elle met en $B8- 
$B9 le contenu des adresses $F4- 
$F5. Ces deux adresses contiennent 
l'adresse du numéro de la première 
ligne de traitement d'erreur donnée 
après l'instruction ONERR GOTO 
(par exemple, l'adresse du premier 
chiffre de 9000 si vous avez indiqué 
ONERR GOTO 9000). La mise en 








place de $F4-$F5 est réalisée lors de 
l'interprétation de ONERR GOTO. 
Ensuite, la routine repositionne les 
registres et les indicateurs du registre 
d'état sur le premier caractère de la 
première ligne de traitement d'erreur 
par un JSR $B7 (on est toujours sur 
le 9 de ONERR GOTO 9000, par 
exemple). On exécute alors un 
GOTO par JSR $D93E : le branche- 
ment se fait donc comme s'il s’agis- 
sait d'un GOTO 9000, traité en cas 
d'erreur, ce que traduit bien finale- 
ment l'instruction ONERR GOTO … 
A l'issue du JSR $D93E, $B8-$B9 
pointe sur l’octet précédant la pre- 
mière ligne de traitement d'erreur 
(sur l’octet précédant la ligne 9000, 
par exemple), et on saute directe- 
ment à l'exécution de cette ligne par 
JMP $D7D2. 


La fin de ce processus est résumée 
ci-dessous : 

F30F-JSR $00B7 

F312-JSR $D93E 

F315-JMP $D7D2 


Notre indirection se chargera d'inter- 
cepter l'ordre initia de ONERR 
GOTO pour mettre directement en 
$F4-$F5 l'adresse (moins 1) de la 
première ligne de traitement d'erreur. 
On aurait ainsi de suite l'adresse de 
l’octet précédant la ligne 9000 et non 
l'adresse du 9 dans un ONERR 
GOTO 9000. 

Ensuite, c’est au niveau du JSR $B7 
de l'adresse $F30F que nous pour- 
rons reprendre à notre compte le 
traitement d'erreur effectif, c'est-à- 
dire assurer le branchement au sous- 
programme de traitement d'erreur 
lorsque celle-ci s'est effectivement 
produite. 


Indirection dans 
l'interpréteur 

Le source de cette routine est donné 
en fin d'article. 

Tout appel à $B1 ou $B7 nous amè- 
nera donc en $9000,; l'essentiel du 
travail consiste alors à filtrer les infor- 
mations pour déterminer s'il nous 
faut prendre en charge les branche- 
ments ou restituer les octets lus sans 
rien faire. Dans cet effort d'analyse, 
la pile et son pointeur constitueront 
nos principaux soutiens. Rappelons, 
par ailleurs, qu'il est bon d’avoir bien 
étudié les mécanismes du RUN pour 
se pencher sur cette nouvelle routine. 


Les indications ci-dessous vous per- 
mettront de compléter les commen- 
taires du listing. 


— Lignes 14 à 25: l'appel à 
CHRGET vient-il de la routine de 
traitement du ON, ou encore, s'agit-il 
du JSR $B1 de l'adresse $DA00 ? Si 
tel est le cas, le sommet de la pile 
(plus précisément les deux octets 
juste en dessous du sommet) doivent 
correspondre à l'adresse de retour 


moins 1 de ce JSR, soit $DAOZ (le 
$02 se situant au-dessus du $DA 
dans la pile). 

Si tel est le cas, nous irons chercher 
les virgules éventuelles (JSR VIR), 
nous ‘sortirons” le JSR $B1 de la 
pile par deux PLA, nous chargerons 
À avec le code de la virgule (#$2C) 
et nous laisserons l'Applesoft conti- 
nuer le travail en retournant en 
$DA06. En résumé, on remplace la 
sous-routine Applesoft de positionne- 
ment sur virgules par la nôtre, qui 
doit tenir compte de ce que nous 
mémorisons des adresses de lignes et 
non des numéros de lignes. 


— Lignes 26 à 29: le seul token 
traité ‘en direct” (au niveau du JSR 
$B1 de l'adresse $D81D) est celui de 
ONERR (#$A5). Nous devons alors 
placer les paramètres de branche- 
ment sur le sous-programme de trai- 
tement d'erreur (JMP ON1). 


— Lignes 30 à 36: traitement de 
l'erreur effective lorsque ONERR est 
actif. Dans ce cas, on doit venir du 
JSR $B7 de l'adresse $F30F (som- 
met de la pile égale retour en 
$F311). Branchement sur notre rou- 
tine ERR. 


— Lignes 37 à 44 : analyse a poste- 
riori des instructions de branchement. 
$6-$7 contiennent toujours l'adresse 
de l'octet lu par CHRGET avant 
celui que l’on est en train de lire par 
ce même CHRGET. Le branchement 
ne se fera que si le caractère précé- 
dant est un GOTO (#$AB), un 
GOSUB (#$B0) ou une virgule 
(#$2C —traitement des ON … lors- 
que le branchement ne se fait pas 
sur la première ligne donnée dans la 
liste). 

Ceci permet d'éviter les branche- 
ments prématurés. Si l’on est encore 
sur la même ligne” que l'instruction 
de branchement, sur laquelle on est 
déjà passé sans rien faire, c’est sans 
doute que l’'Applesoft veut réellement 
exécuter un branchement et qu'il en 
cherche l'adresse. Il nous reste en 
sus un second verrou, vis-à-vis de 
ces branchements prématurés, que 
nous examinerons plus loin. 


— Lignes 45 à 55: l'octet lu n'est 
pas pour nous. On en stocke 
l'adresse en $6-$7 (il peut en effet 
s'agir du token d'une instruction qui 
nous intéresse), on restaure les regis- 
tres et on reprend le cours normal du 
CHRGET standard. 


— Lignes 56 à 64: second verrou 
des branchements. Tous les branche- 
ments, simples où complexes (IF ou 
ON), passent par $D828 ou $D82A 
dans l’interpréteur. On doit arriver 
alors du JMP $B1 de l'adresse 
$D83C, avec au sommet de la pile 
l'adresse moins 1 de la routine de 
traitement de GOTO ($D93E) ou de 
GOSUB ($D921). 


Si tel est bien le cas, il devient cer- 
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tain que le branchement doit être ef- 
fectué, en fonction des résultats obte- 
nus précédemment par l’Applesoft 
(on est arrivé jusqu’au point où l’Ap- 
plesoft se met à la recherche des 
adresses des numéros de lignes). 


— Lignes 65 à 77: traitement 
GOTO. On ‘sort’ de la pile l'adresse 
moins 1 de la routine de GOTO. On 
trouve dans les deux octets consécu- 
tifs pointés par $B8-$B9 (là où serait 
le premier chiffre du numéro de 
ligne) l'adresse moins 1 de la ligne 
de branchement, que l’on transfère 
en $B8-$B9 (et en $6-$7 pour archi- 
vage de l'adresse du dernier octet 
lu). 


On est toujours sous contrôle du JSR 
$D828 de l'adresse $D820 (directe- 
ment où non, comme on l'a vu en 
analysant IF et ON). Le RTS nous 
amène en $D823, soit sur JMP 
$D7D2 pour passer à l'instruction 
suivante pointée par $B8-$B9, c'est- 
à-dire la ligne de branchement. Mis- 
sion accomplie ! 

— Lignes 78 à 98: traitement de 

GOSUB: principes identiques à 

GOTO. 

En sus, il faut toutefois contrôler la 

place disponible dans la pile et empi- 

ler ensuite : 

e l'adresse de retour après exécution 
de la sous-routine (nous prenons 
ici l'adresse du premier ”:"” qui suit 
l'adresse de la sous-routine après 
GOSUB); 

e le numéro de la ligne où l'on doit 
revenir (adresse de la ligne cou- 
rante mémorisée en $75-$76); 

e le token de GOSUB (#$B0) pour 
éviter ensuite les erreurs ‘RE- 
TURN WITHOUT GOSUB). 

On passe ensuite directement à la 
sous-routine par JMP $D7D2, et non 
par RTS, car c'est la routine de trai- 
tement du RETURN qui est conçue 
dans l'Applesoft pour assurer la sortie 
du JSR $D828 de l'adresse $D820. 


— Lignes 99 à 126: mise en place 
des paramètres pour ONERR GOTO. 
On vérifie tout d'abord que l'on vient 
effectivement de l'analyse du token 
maître ONERR (sommet de la pile 
égale $D81F si l'on vient du JSR 
$B1 de $D81D). Dans ce cas, on 
trouve l'adresse deux octets plus loin 
que la position pointée par $B8-$B9 
(ONERR pour Y=0, GOTO pour 
Y=1, premier octet de l'adresse pour 
Y=2). . 

On stocke cette adresse du sous-pro- 
ramme de traitement d'erreur en 
$FA-$FS. on passe directement au 
premier octet qui suit cette adresse 
en ajoutant 4 à $B8-$B9 (plus archi- 
vage en $6-$7) et on signale à l'Ap- 
plesoft que ONERR est actif en met- 
tant #$80 à l'adresse (drapeau) $D8. 
C'est dans la mesure où ce drapeau 
est positionné à #$80 que l'arrivée 
d’une erreur nous enverra en $F2E9 
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(voir plus haut). 

On sort ensuite de notre JSR $B1 
par deux PLA et on passe directe- 
ment à la suite par JMP $D7D2, 
puisque l’on a réalisé ici tout le traite- 
ment nécessaire pour notre propre 
manipulation des ONERR GOTO et 
des erreurs éventuelles. 


— Lignes 127 à 133 : traitement des 
erreurs effectives. Le traitement stan- 
dard Applesoft a déjà remis en $B8- 
$B9 la valeur de $F4-$F5 (adresse 
première ligne sous-programme d'er- 
reur) et il nous reste à l’archiver en 
$6-$7. On restaure ensuite le poin- 
teur de pile à la valeur qu'il avait lors 
de la rentrée en $D7D2 (stockée en 
$F8) pour analyse de l'instruction au 
cours de laquelle l'erreur s'est pro- 
duite. En remontant en ONO (JMP 
$D7D2) on commence directement 
l'exécution du sous-programme de 
traitement d'erreur. 

À noter que notre manipulation de 
ONERR permet une utilisation répé- 
tée sans les problèmes de “OUT OF 
MEMORY" que l'on rencontre avec 
le traitement standard de l'Applesoft. 


— Lignes 134 à 156 : recherche des 
a dans le cadre des instructions 
ON … 


Comme les adresses occupent tou- 
jours deux octets, la recherche peut 
commencer à deux octets de la posi- 
tion courante (token de GOTO ou 
GOSUB, ou précédente virgule), 
d'où un LDY #2 au départ. 

Un numéro de ligne occupant au 
maximum 5 octets (soit deux octets 
d'adresse et trois ‘:” après notre cal- 
cul d'adresses), on doit trouver nor- 
malement une virgule avant que Y 
atteigne la valeur 6. Si tel n'est pas le 
cas, il ne peut y avoir de branche- 
ment et on doit passer à l'instruction 
suivante en séquence, comme dans 
le traitement standard. On exécute 
donc deux PLA pour sortir du JSR 
VIR de notre routine, deux PLA pour 
sortir du JSR $B1l de l'adresse 
$DAO0, un PLA pour récupérer le 
token empilé par la routine de ON. 
Le RTS de la ligne 156 nous enverra 
donc en $D823 (retour du JSR 
$D828 de l'adresse $D820) pour 
passer à l'instruction suivante. De 
plus, on remet Y à 2. pour pointer 
sur le premier octet qui suit la der- 
nière adresse de ligne donnée dans 
la liste (en principe. on a avancé ré- 
gulièrement $B8-$B9 pour le faire 
pointer sur la virgule que l'on vient 
de trouver — voir ci-dessous. En par- 
tant de la dernière virgule trouvée, la 
fin de l'instruction ON GOTO … se 
trouve deux octets plus loin. juste 


après la dernière adresse de ligne 
donnée dans la liste). 

Les lignes 147 à 155 permettent de 
positionner $B8-$B9 sur la virgule 
trouvée et d’en archiver l'adresse (on 
ajoute la valeur de Y à la précédente 
valeur de $B8-$B9). C'est approxi- 
mativement le même traitement que 
celui réalisé par l'Applesoft dans sa 
routine $DAOC. On revient ensuite 
pour redonner la main à la routine 
de ON, qui se chargera de savoir si 
l'on est arrivé ou non à la bonne 
adresse de branchement (à la bonne 
virgule). 

Dans le cas du non branchement 
(expression vaut 0 ou supérieure au 
nombre d'items prévus), les lignes 
147 à 155 permettent de faire poin- 
ter $B8-$B9 sur le premier octet qui 
suit la fin de l'instruction ON … 


Mode opératoire 


Pour tester ce système de branche- 
ment sur adresses, nous vous 
conseillons de disposer sur une 
même disquette des codes objets des 
deux routines concernées. Sur la dis- 
quette Pom's, la routine de calcul 
des adresses est baptisée COMPG2 
et celle d'analyse des instructions de 
branchement INTERG11. 

Comme dans les exemples évoqués 
dans le Pom's 16, constituez égale- 
ment un petit fichier pour mettre en 
place l’indirection dans CHRGET. Ce 
fichier contiendra simplement les 
codes 4C 00 90 (JMP $9000) et 
devra se charger à l'adresse $BA. Un 
tel fichier est fourni sur la disquette 
d'accompagnement sous le nom 
INTERE6. 

Un second fichier permettra de réta- 
blir CHRGET à sa structure normale. 
Il devra se charger également en 
$BA et contiendra les 4 octets C9 3A 
BO OA (CMP #$3A et BCS $00C8). 
Ce fichier s'appelle CHRGET sur la 
disquette d'accompagnement. 


Constituez ensuite un fichier EXEC 
(tel COMPDEF sur la disquette) qui 
comprendra les instructions suivan- 
tes : 


HIMEM:9+4096 
BRUN COMPG2 
BLOAD INTERGI11 
BLOAD INTER6 


Une fois ce fichier présent sur la 
même disquette que les autres, char- 
gez ou entrez au clavier votre pro- 
gramme ‘source en Applesoft (sau- 
vez-le sous cette forme normale si ce 
n'est déjà fait). 

Tapez ensuite EXEC COMPDEF, 
pour faire exécuter le calcul des 


adresses et mettre en place l’indirec- 
tion dans CHRGET. Listez le résultat 
de ce travail, ne serait-ce que par 
curiosité. 

Vous pouvez enfin faire un RUN du 
programme adapté en mémoire et 
contrôler le déroulement des opéra- 
tions. 

Pour revenir à l'Applesoft standard, 
tapez, en mode immédiat par exem- 
ple, BLOAD CHRGET (le pro- 
gramme en mémoire, avec les 
adresse calculées, ne pourra dès lors 
plus être exécuté sans erreur de syn- 
taxe, à moins que vous ne rechargiez 
l’aiguillage par BLOAD INTERE6). 

Un programme comportant des 
adresses en lieu et place des numé- 
ros de ligne ne peut généralement 
pas être sauvé sur disquette correcte- 
ment, car la commande SAVE n'est 
pas prévue pour traiter des program- 
mes comportant des 0 ailleurs qu’en 
fin de ligne (alors qu’on peut trouver 
des O0 dans nos adresses de lignes). 
Ceci justifie l'emploi d'un fichier 
EXEC pour traiter automatiquement 
un programme source en mémoire, 
chaque fois que l’on veut tester son 
fonctionnement avec des branche- 
ments sur adresses. 

Comme vous pourrez le constater, ce 
mécanisme de branchement ne se 
traduit par des gains de temps réels 
que dans certaines structures de pro- 
gramme bien particulières : nom- 
breux branchements sur des lignes si- 
tuées très loin de leurs points 
d'appel. Dans les autres cas, le temps 
perdu à analyser chaque octet du 
programme dans la routine $9000, 
que celui-ci la concerne ou non, an- 
nule le temps gagné sur les branche- 
ments. Cet exercice de style nous 
aura donc surtout servi de prétexte 
pour approfondir le fonctionnement 
de l’Applesoft et les processus de 
“greffe” que l’on peut lui appliquer 
par le biais de l’assembleur et du lan- 
gage machine. Nul doute que l'utilité 
de la pile, en tant qu'outil de mémo- 
risation des opérations passées et 
d'analyse de ces opérations, vous ap- 
paraîtra plus nettement après cet 
usage intensif du pointeur de pile. 


L'étude en profondeur des routines 
de l'Applesoft pourra vous être sou- 
vent utile, si vous désirez persévérer 
dans la chirurgie plastique du lan- 
gage de base de votre Apple. Afin de 
vous y aider un peu, vous trouverez 
en annexe la liste des points d'entrée 
des routines de traitement des tokens 
“maîtres”. Vous serez ainsi en posse- 
sion des clés, à vous d'ouvrir les 
portes. = 





Source Big Mac 4 * INSTRUCTIONS DE BRANCHEMENT x 

5 x SUR UNE ADRESSE * 
Programme INTERG 11. S 6 * CODE = INTERGI1 * 
Î KEEKRELLREEEÉEEEELEELRELRELXELELELEXXEXX 7 * * 
pi + x 8 EE 6 6 6 EE 6 6 6 EE EX EE 6 6 6 6 6 
3 * ROUTINE D’INTERPRETATION DES x 9 * 
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EE  _ _”“ 





10 ORG +$97000 67 S0 LDY £0 :MET $B8-$ 





11 STA $BD ; STOCKAGE B9 À L'ADRESSE DE BRANCHEMENT 
CARACTERE ANALYSE 68 ssi LDA ($B8),Y 
12: STY #8 ; SAUVE GARD 69 PHA 
E DES REGISTRES 70 INY 
13 STX #9 71 LDA ($B8),Y 
14 TSX 72 STA +#B9 
15 LDA #$102,X ; VIENT -ON 73 STA $7 
DE LA ROUTINE DU "ON" ? 74 PLA 
16 CMP  £$DA 75 STA #$B8 
17 BNE  ON2 76 STA $6 
18 LDA $101,X 77 RTS 
19 CMP  £$02 78 S2 PLA ; TRAITEMEN 
20 BNE  ON2 T “GOSUB" 
21 JSR VIR ; RECHERCHE 79 PLA 
DE L'ADRESSE DE BRANCHEMENT 80 LDA £53 
22 PLA 81 JSR $D3Dé ; CONTROLE 
23 PLA PLACE DISPONIBLE DANS LA PILE 
24 LDA £$2C es 82 LDA #$B8 ; CALCULE E 
25 JMP  $DA0é ;RETOUR À T EMPILE LES VALEURS CORRECTES 
LA ROUTINE DE "ON" 83 CLC ;POUR LE * 
26 ON2 LDA $BD RETURN" À VENIR 
27 CMP  £$A5 ; TOKEN DE 84 ADC £2 
*"ONERR" ? 85 STA $6 
28 BNE  SU00 86 LDA $B9 
29 JMP ON! 87 ADC £0 
30 SU00 LDA $102,X ; VIENT -ON 88 PHA 
DE LA ROUTINE QUI BRANCHE SUR 89 LDA %$6 
31 SUO CMP  £$F3 ;LA ROUTIN 90 PHA 
E D'ERREUR SI "ONERR" 91 LDA #$76 
32 BNE  VO0 ; CTRAITEME 92 PHA 
NT D’UNE ERREUR EFFECTIVE) 93 LDA #75 
33 LDA %$101,X 94 PHA 
34 CMP £$11 95 LDA £$B0 
35 BNE VO0 96 PHA 
36 JMP  ERR 97 JSR SO ;M.A.J. DE 
37 VO0 LDY £0 $B8-$B9 
38 LDA  ($6),Y 3LE CARACT 98 JMP  $D7D2 ; SAUTE À L 
ERE PRECEDENT EST-IL : A LIGNE DU “GOSUB" 
39 CMP  £$AB ;"GOTO" ? 99 ON! LDA $102,X 
40 BEQ SSD 100 CMP  £$D8 ; VIENT -ON 
41 CMP  £$B0 ;"GOSUB" ? DU JSR $B1 DE 
42 BEQ SSD 101 BEQ ON10 ; L'ADRESSE 
43 CMP  £#2C 3", ? $D81D (TOKEN MAITRE) 
44 BEQ SSD 102 JMP  SUO 
45 SDEB LDA $B8 5M.A.J. PO 103 ON10 LDA $101,X 
INTEUR $6-$7 104 CMP £$1F 
4é STA $6 105 BEQ ONERR 
47 LDA #$B9 106 JMP SU00 
48 STA #7 107 ONERR LDY £2 ; ADRESSE D 
49 LDY #8 E DEBUT-1 DE LA PREMIERE LIGNE 
50 LDX #97 108 LDA ($B8),Y ;DE LA ROU 
51 LDA_ $BD 3REPRISE N TINE BASIC APPELEE PAR “ONERR GOTO 
ORMALE DE *CHRGET* : 
32 ta 109 STA $F4 ;EST MISE 
33 ses Si EN $F4-$F5 
54 JMP  $BE sa NY 
55 51 RTS 111 LDA ($B8),Y 
Sé SSD LDA #$102,X ;LE SOMMET 112 STA %$F5 
DE LA PILE EST-IL L’'ADRESSE DE 113 LDA $B8 ;PASSE À L 
s7 CMP  £$D9 ÿLA ROUTIN A FIN DE L’INSTRUCTION 
E DE “GOTO" ($D93E-1) 114 CLC ;"ONERR GO 
58 BNE  SDEB TO ADRESSE" 
59 SSD! LDA #$101,X 115 ADC £4 
60 CMP  £$3D 116 STA +$B8 
éi BEQ SS0 117 STA #$6 
62 CMP  £$20 ; OU DE “GO 118 LDA #$B9 
SUB" (#D921-1) 119 ADC £0 
63 BEQ S2 120 STA +#B9 
64 BNE  SDEB 121 STA #7 
65 SS0 PLA ;DEPILE SO 122 LDA £$80 
MMET 123 STA +D8 ; SIGNALE * 
éé PLA ONERR* ACTIF 
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124 PLA ; SORT DU * 140 BNE  UVIRI : OU GOSUB 
JSR $B1" DE $D81D ——} ERREUR 
125 PLA 141 PLA MAIS PASS 
126 ONO JMP  $D7D2 3: PASSE À L AGE À INSTRUCTION SUIVANTE SI 
‘ INSTRUCTION SUIVANTE 142 PLA 3 VARIABLE= 
127 ERR LDA $F4 ; SAUT À LA 0 OÙ SUPERIEURE AU NOMBRE D’ITEMS 
ROUTINE BASIC DE TRAITEMENT DES E 143 PLA 
RREURS 144 PLA 
128 STA $é6 145 PLA 
129 LDR $F5 146 LDY £2 
130 STA +57 147 VIR2 TYA : PLACE $B8 
131 LDX +$F8 —$B9 SUR UNE VIRGULE DANS L’INSTRU 
132 TXS CTION 
133 BNE  ONO 148 CLC ; "ON GOTO 
134 UIR LDY £2 ; CHERCHE VU sut 
IRGULES DANS INSTRUCTION “ON GOTO 149 ADC +88 
ss. 150 STA $B8 
135 VIRI LDA (+$B8),Y 151 STA $6 
136 CMP  £$2C 152 BCC UVIR3 
137 BEQ VIR2 153 INC $B9 
138 INY 154 VIR3 LDA +$B9 
139 CPY £é :SI PAS DE 155 STA $7 
“," À S OCTETS DU TOKEN DE GOTO 156 RTS 
0388- 02 Eé B9 A0 00 20 B1 00 9068- 01 C9 30 FO 06 C9 20 FO 
COMPG2 0390- FO A1 B0 Cé A9 34 91 B8 9070- 16 DO Dé 68 68 A0 00 Bi 
0398- DO F3 FF 9078- B8 48 C8 B1 B8 85 B9 85 
*300.39A 9080- 07 68 85 B8 85 06 60 68 
9088- 68 A9 03 20 Dé D3 A5 B8 
0300- AS 67 85 B8 A5 68 85 B9 INTERG 11 9090- 18 69 02 85 06 AS B9 69 
0308- A0 01 Bi B8 DO 03 4C 3C 9098- 00 48 A5 06 48 A5 76 48 
0310- D4 85 09 88 Bi B8 85 08 *9000.9117 90A0- A5 75 48 A9 BO 48 20 75 
0318- A0 02 Bi 88 85 75 C8 B1 90A8- 90 4C D2 D7 BD 02 01 C9 
0320- B8 85 76 A5 B8 18 69 03 9000- 85 BD 84 08 86 09 BA BD 90B0- D8 FO 03 4C 2B 90 BD 01 
0328- 85 B8 90 02 Eé B9 20 Bi 9008- 02 01 C9 DA DO 11 BD 01 90B8- 01 C9 1F FO 03 4C 28 90 
0330- 00 DO 0E C9 3A FO F7 A5 9010- 01 C9 02 DO 0À 20 F2 90 90C0- AO 02 Bi B8 85 F4 C8 B1 
0338- 08 85 B8 AS 09 85 B9 DO 9018- 68 68 A9 2C 4C 06 DA AS 90C8- B8 85 F5 AS B8 18 69 04 
0340- C7 C9 AB FO 15 C9 BO FO 9020- BD C9 A5 DO 03 4C AC 90 9000- 85 B8 85 06 AS B9 69 00 
0348- 11 C9 C4 DO Eli A0 01 B1 9028- BD 02 01 C9 F3 DO 0A BD 90D8- 85 B9 85 07 A9 80 85 D8 
0350- B8 C9 3A B0 D? 88 A9 AB 9030- 01 01 C9 11 DO 03 4C ES 90E0- 68 68 4C D2 D7 AS F4 85 
0358- 91 B8 20 Bi 00 A4 B8 84 9038- 90 A0 00 B1 06 C9 AB F0 90E8- 06 AS F5 85 07 A6 F8 94 
0360- 06 A4 B9 84 07 C9 30 DO 9040- 1E C9 BO FO 1A C9 2C FO 90F0- DO FO A0 02 Bi B8 C9 2C 
0368- 03 20 Bi 00 20 B7 00 20 9048- 16 AS B8 85 06 AS B9 85 90F8- FO 0C C8 CO 06 DO F5 68 
0370- 3E D9 AO 00 AS B8 91 06 9050- 07 A4 08 A6 09 A5 BD C9 9100- 68 68 68 68 A0 02 98 18 
0378- C8 AS B9 91 06 AS 06 85 9058- 3A BO 03 4C BE 00 60 BD 9108- 65 B8 85 B8 85 06 90 02 
0380- B8 AS 07 85 B9 Eé B8 DO 9060- 02 01 C9 D9 DO E3 BD 01 9110- Eé B9 A5 B9 85 07 60 00 
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F277 : INUERSE 
DR46  LET 


F318 


RESUME 











HGR DUMP sur Epson 


Alexandre Avrane 


Fatigué de n’utiliser votre imprimante 
graphique qu’au quart de ses possibi- 
lités ? Ce programme, prévu pour les 
imprimantes Epson mais adaptable à 
toutes imprimantes à aiguilles, ap- 
porte les possibilités d’une carte in- 
terface graphique... sans le coût. 


Voici les fonctions possibles : 


— impression simultanée (sur le 
même bloc horizontal) de un à trois 
écrans haute-résolution de l'Apple 

— tabulations horizontales précédant 
l'impression des écrans 

— rotation de l’image imprimée de O, 
90, 180 ou 270 degrés 

— zoom possible dans les rapports 
1/1, 2/1, 4/1 

— impression en simple ou double 
densité L 

— impression normale ou inversée 
(noir / blanc) 

— définition possible de la fenêtre de 
l'écran haute-résolution à imprimer. 


Exécution du 
programme 


Le programme s’initialise par un sim- 
ple BRUN HGR DUMP. Il utilise 
l'omniprésent vecteur de l’ampersand 
(&). Une fois activé, il n'existe 
qu'une seule instruction pour l’exé- 
cuter, celle-ci comportant de très 
nombreux paramètres facultatifs, la 
syntaxe complète est : 


& PR# <écrans + tabulations> 
<paramètres> 


Pas de panique ! En cas de trou de 
mémoire, tapez ‘’& PR# ?” et vous 
obtiendrez à l'écran la liste des para- 
mètres disponibles. De plus, tous les 
paramètres ont une valeur par défaut 
et peuvent être donnés dans n’im- 
porte quel ordre. 


Voyons-les de plus près : 


e & est l'instruction qui débranche 
l'Applesoft vers le programme. Pas 
question de l'utiliser sous le Basic 
Integer ou le moniteur ! 


e PR# est l'identificateur du vecteur 
Ampersand demandé. En effet le 


programme, lors de son charge-" 


ment, ne détruit pas l’ancien vec- 
teur qui était éventuellement en 
place pour une autre routine. 
Celui-ci est automatiquement ap- 
pelé si le mot-clé PR# ne suit pas 
l'ampersand. 


Définition des écrans 


<écrans +tabulations> est une suite 
facultative de 1 à 3 écrans haute-ré- 
solution et éventuellement 1 à 3 ta- 
bulations horizontales qui les précé- 


deront à l'impression. Les valeurs 
possibles des écrans sont: HGR, 
HGR2, HGR3 (zone mémoire non 
visualisable située en $6000-$7FFF); 
les tabulations s'expriment par TAB 
(n) où n est exprimé en nombre de 
caractères de l'imprimante. 


Exemples : 


& PR# HGR, HGR2 

& PR# TAB(10), HGR2, TAB(5), 
HGR 

& PR# HGR3 

& PR# HGR, HGR3, TAB(10), 
HGR3 


Attention : dans le dernier exemple, 
la tabulation indiquée s’appliquera 
avant l'impression du premier écran. 
Si une tabulation est nécessaire uni- 
quement entre le 2ème et 3ème 
écran, il faut écrire : & PR# TAB(0), 
HGR, TAB(0), HGR(3), TAB(10), 
HGR3... c'est la rançon à payer pour 
saisir les paramètres dans n'importe 
quel ordre. Deuxième remarque : 
hormis le premier paramètre, tous les 
autres sont précédés par une virgule. 


Si rien n'est précisé, la commande 
par défaut est : 


& PR# TAB(0), HGR 


et imprime donc le premier écran 
haute-résolution de l'Apple. 


Un maximum de trois écrans (avec 
leur tabulation éventuelle) est auto- 
risé. En saisir un quatrième effacera 
le premier entré. 


Définition des autres paramètres 


Les autres paramètres sont : 


e ROT=n où n vaut 0, 1, 2 ou 3, 
correspondant à une rotation de 
0, 90, 180 ou 270 degrés de l’im- 
pression par rapport à l’image sur 
écran. 

e SCALE=n où n vaut 1, 2 ou 4 
(pas de 3!) effectue un effet de 
zoom de même proportion. 


e INVERSE imprime l'écran en in- 
verse (impression des points 
éteints uniquement) 


e FLASH demande une impression 
en double densité, donnant une 
meilleure définition du résultat (ca- 
ractéristique de l’Epson). 


e SCRN{(al, a2, bl, b2) précise la 
partie de l'écran à imprimer, en 
définissant les colonnes de départ 
(al) et d'arrivée (a2) et les lignes 
de départ (bl) et d'arrivée (b2) 
d’une fenêtre. Les valeurs sont ex- 
primées comme les HTAB et 
VTAB d'un écran texte, c’est à 
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dire dans les limites 0-40 et 0-24 
respectivement. 


Lorsqu'ils sont omis, ces paramètres 
ont comme valeur par défaut : 
ROT=0, SCALE=1, non FLASH, 
non INVERSE, SCRN(0,40,0,24) 


Exemples d'utilisation : 


& PR# HGR2, FLASH 

&  PR#  INVERSE, ROT-=-I, 
SCALE=2 (écran HGR par défaut) 
& PR# HGR3, HGR, SCALE=4, 
SCRN(10,30,0,24) 


Dans la version actuelle du pro- 
gramme, tous les paramètres sont 
globaux et s'appliquent donc à l’en- 
semble des écrans demandés. 

Enfin, il est bien sûr de la responsa- 
bilité de l'utilisateur de charger les 
images vidéo en mémoire avant leur 
utilisation. 


Messages d’erreur 


SYNTAX ERROR est généré lorsque, 
le préfixe & PR# ayant été reconnu, 
la suite de la commande est incom- 
préhensible. 


ILLEGAL QUANTITY ERROR est 
généré lorsque les valeurs des para- 
mètres ROT, SCALE ou SCRN dé- 
passent les plages permises. 


OVERFLOW ERROR, enfin, lorsque 
la longueur totale d’une ligne d’im- 
pression (nombre d'écrans x taille 
d'un écran + tabulations) dépasse la 
longueur du rouleau de l'imprimante. 


Ces erreurs peuvent être interceptées 
par l'instruction ONERR GOTO de 
l'Applesoft. 


Fonctionnement 


Organisation interne 


Le programme nécessite une confi- 
guration minimum de 48K, ainsi que 
le moniteur Autostart et l'Applesoft 
sur la carte mère ou la carte langage. 
Il se charge à partir de l'adresse 
$8000 (32768), donc juste au-dessus 
de la troisième page graphique, et 
laisse plus de 4K octets disponibles 
pour d’autres routines situées avant 
les buffers du DOS (ou de ProDOS). 
Il est organisé en quatre parties prin- 
cipales : 

— un interpréteur de commandes qui 
gère l'initialisation et la lecture des 
paramètres 

— un algorithme d'impression pour 
des rotations à l'horizontale (ROT=0 
ou 2) 

— un algorithme d'impression pour 
des rotations à la verticale (ROT= 1 
ou 3) 

— une batterie de modules de ser- 
vice 

Il est malheureusement impossible 
d'entrer plus en détail dans le fonc- 
tionnement des deux algorithmes en 
raison de leur complexité, la concep- 
tion de la haute résolution sur l'Ap- 
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ple Il avant dû être inspirée par un 
casse-tête chinois particulièrement vi- 
cieux... 


Gestion des interruptions et de 
l’environnement 


Le programme peut être interrompu 
momentanément par la touche ESC 
à la fin de l'impression d’une ligne. 
L'interruption est définitive par la 
touche CTRL-C. 

Le programme sauvegarde l'environ- 
nement utilisé (adresses en page 
zéro, vecteur de Reset, adresse de la 
routine de sortie de caractères) avant 
son exécution. L’activation de 
RESET rétablit les valeurs d'origine; 
l’utilisation répétée très rapidement 
de Reset si ROT= 2 ou 3 peut ame- 
ner la destruction de l’image vidéo. 


Paramètres d'assemblage 


Le fichier source HGR DUMPS est 
utilisé par Big Mac. 

PRSLOT définit le slot de l'impri- 
mante (actuellement 1). 

MX80, MX82, MX100 indiquent le 
modèle d'Epson utilisé. 

TWINLF doit être à O si l'imprimante 
ne possède pas de saut de ligne in- 
terne, à 1 sinon. 


MSGO est le message envoyé (en 


ordre inversé) à l'imprimante pour 
initialiser la taille en pouces d'un saut 


de ligne. 
MSGI est le message lui indiquant 
que les PIXLNOI x 256 + 


PIXLNOZ octets suivants qu'elle re- 
cevra devront être considérés comme 
des représentations graphiques pour 
la tête d'écriture à 8 aiguilles, en sim- 


ple (DUMPTYPE = ”’K”) ou double 
("L”) densité. 


Améliorations possibles 


Il est possible de perfectionner le 
programme pour lui faire supporter 
d’autres types d'imprimantes à aiguil- 
les (en modifiant les valeurs de 
MSGDO et MSGI contenant les codes 
de contrôles). 

On pourrait également rendre les pa- 
ramètres locaux, donc autoriser l’im- 
pression, sur un même bloc horizon- 
tal, d'un écran normal suivi par un 
écran à taille double et tourné de 90 
degrés par exemple. 

Enfin, on peut le modifier pour gérer 
les couleurs, ou la double haute-ré- 
solution (560x192) de l'Apple /!e. 


À vous de jouer ! Li 





Source Big Mac 

LST OFF 
LLLLLLLLL LL LLL LL LLLLLLLLLLLLI11111) 
La EPSON HGR SCREEN OUMP 0 


LLLEL LL LL LLL LL LL LLLILLLLIL LL LI LT)1) 


#*Copyright [C] 1984 A.Avrane 


© © y © Li & QU NN — 


m1.A.J.:09/07/84 
10 #Creation: 21/04/84 


12 *Parametres d'assemblage: 

13 PRSLOT = 1 siot impri 
mante 

14 TYINLF - 1 
gne interne 


saut de li 


13 MX80 - 0 modele de 
1’Epson 

1é MX82 - l 

17 MX100 - 0 

18 

19 #Constantes d'assemblage: 

20 Do MX80 

21 MAXWIDTH = 80 colonnes 

22 FIN 

23 D0 MX82 

24 MAXWIDTH = 100 

25 FIN 

26 00 MX100 

27 MAXWIODTH = 136 

28 FIN 

29 

30 LGMSGO =. 4 

31 LGMSG1 = 8 

32 LGMSG2 - 4 

33 ESC = 27 

34 CI = 9 

335 CR = +80 

36 DEL - 27F 

37 PAUSE = 27+#80 escape 

38 ABORT - 03+#80 ctri-c 


PRSLOT## 10 
PRSLOT##8100 


39 PRSLOT'2 = 
40 PRSLOT'3 = 


41 

42 Adresses d’assemb|age: 
43 SAUVGBASL = 500 

44 GBASL - #26 

45 CSu - #36 

dé TRAP = 48 

47 CHRGET = s81 

48 CHRGOT - +87 

49 TXTPTR = +88 

SQ HPAG - L1 

S1 SOFTEV = s3F2 

52 AMPER = s3FS 

33 KEYBOARO = #c000 

S4 STROBE = sco10 

SS FLUSH = #C080+PRSLOT * 2 
Sé CARDACK = SCOC1 +PRSLOT 3 
57 ERROR - #0412 

58 CHKCLS = 40E€88 

59 CHKCOM D S0EBE 

60 SYNERR = S0EC9 

61 ILQTYERR = 4€199 

62 GETBYTC = 3E6FS 

63 GETBYT - 2E6F8 

64 HPOSN - sF4i! 

635 PRBL2 - sF944 

éé SETPYRC = sFB86F 
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67 CROUT - #F08E 
68 COUT - #F0ED 
69 COUT! = sFDFO 
70 OUTPORT = sFE9s 
71 
72 


73 eme ee men me me 
74 mA] vecteur &, garde ancien 
PS DE 2 


77 #uerifie vieuxenouveau, evite boucl 


es 


78 LDA  AMPER+1 

79 CMP  AÇENTRY 

80 BNE  SETAMPER 

81 LDA  AMPER+2 

82 CMP  W)ENTRY 

83 BEQ SETOONE res 

84 

83 #Sauve ancien vecteur pour autres à 
ppels 

8é SETAMPER LOA AMPER+1 save old 

87 STA  SAVAMPER 

88 LDA  AMPER+2 

89 STA  SAVAMPER+ 1 

90 s#Met en place nouveau vecteur 

1 LDA #s4C “jmp" 

92 STA AMPER 

93 LDA  #ÇENTRY 

?4 STA AMPER+1 set new 

93 LOR  M)ENTRY vector 

76 STA AMPER+2 

97 SETOONE LDA #0 

?8 STA TRAP dos bug 

?9 RTS 

100 AST 70 


ren 
eo 
n 


103 #Stockage des variables 
LL LL LL LL LL LL} 


104 

105 

106 *Parametres: 

107 PARAM - + 
108 NEGATIVE DF8 0 
109 DBSTRIKE DFB 0 
110 ROTATION OF8 0 
111 FLIPFLAG DFB 0 
112 SIZE OFB 1! 
113 S12E2 OF8 7 
114 TABO = LL 
115 TAB3 DFB 09 
116 TAB2 F8 0 
117 TABI DF8 0 
118 SCRAMINH OF8 0 
119 SCRANMAXH DFB 40 
120 SCRAMINV OFB 0 
121 SCRNMAXV DFB 24 
122 HPAGO - * 
123 HPAG3 OF8 0 
124 HPAG2 OFB 0 
125 HPAGI OF8 0 
126 NBDFLT - *-PARAM 
127 


128 #Drapeaux et compteurs programme: 


129 HORIZON DF8 
130 VERTICAL DF8 
131 VERTICAZ OFB8 
132 PIXLHPOS DOFB 
133 PIXLUPOS DF8 
134 MASKI oF8 
135 MASK2 DF8 


0000000 


136 MATRIX OFB 0 
137 SCRWIDTH OFB 0 
138 NBHPAG 0F8 0 
139 SAVEBYTE DFB8 0 
140 TRANSIT2 DF8 0 
141 AST 70 
142 


10 3 0 me 
144 #Entree &, verif syntaxe 
199 ne n nm nmnn 
146 ENTRY 2 D 


147 CMP #s8A °PRA° ? 

148 8EQ ITSFORUS oui 

149 JMP  (SAVAMPER) ancien & 

150 

DST me 2 0 ee AO 

132 #initialise valeurs par defaut 

DNS 002 28 m2 RS RCE 2 D 

134 ITSFORUS = L 

155 LDX  MNBDFLT-I 

136 INITDFLT LOR DEFAULT,X 

1357 STA  PARAM,X 

158 DEX 

159 BPL  INITOFLT 

160 LDA #°K* simple den 
site 

161 STA OUMPTYPE 

162 


DOS D 2 DFE 2 CE D EE EE 8 
164 #acquisition des commandes 
LS 0 2 2 ES 


l1éé JSR CHRGET 

167 LOY #1 

168 BNE  REAONEXT mp 

169 READPARM = » 

170 JSR CHRGET 

171 BEQ NOUWEGO 

172 JSR CHKCOM che 
ck , 

173 READNEXT LDA  H)READPARM-I 

174 PHâ 

175 LDA  #ÇCREADPARM-I 

176 PHa 

177 JSR CHRGOT 

178 BEQ HEREWEGO eol or : 

179 LDX #8 

180 NEXTPARM CMP  CMDNAME ,X 

181 8EQ PARMFUND 

182 DEX 

183 BPL  NEXTPARM 

184 PLA 

185 PLA 

186 JMP  SYNERR error 

187 PARMFUND TXA 

188 ASL 

189 TAX 

190 LDA  CMDADDR,X 

191 PHA 

192 INX 

193 LDA CMDADDR,X 

194 PhHa 

195 RTS 

196 

197 HEREWEGO PLA 

198 PLA 

199 NOWWEGO = * 

200 


20) 6 A ADO A CN ON 


202 #Werifie longueur < largeur imprima 


nte 


: ie 
MA GAS A Lvne 2 NKA 


n Mas 


24 
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203 


20% 
205 
204 
207 
208 
209 
210 
211 

212 
213 
214 
213 
216 
217 
218 
219 
220 
221 

222 
223 
224 
225 
226 
227 
228 
229 
230 
231 

232 
233 
234 
235 
236 
237 
238 
239 
240 
241 

242 
243 
244 
245 
246 
247 
248 
249 
250 
231 


232 
2353 


2354 
235 
236 
237 
238 
239 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
2753 
2746 
277 
278 


290 
291 
292 


#Calcule largeur d'un ecran 


CLD 
LDA SCRNMAXH 
SEC 
SBC  SCRAMINH caicul 
LDOY ROTATION largeur 
BEQ GETTA8O ecran 
LDA SCRAMAXU 
SEC 
SBC  SCRAMINW 
GETTABO STA SCRUWIDTH 1-40 
LDX SIZE 
GETTAB1 DEX 
BEQ GETTAB2 
CLC 
ADC  SCRUIDTH 
BNE GETTABI =)mp 
GETTAB2 STA SCRWIDTH 1-160 


“AJ No matrices pour | ecran 


#(7 x pixels si rot=0, sinon 8) 
STA MASK2 
STA PIXLNO2 
LDX #0 
STX MASKI 
STX PIXLNOI 
LDX #2 
BIT DBSTRIKE #lash? 
BPL SETPIXLO no 
INX 
ASL MASK2 
ROL MASKI1 
SETPIXLO ASL PIXLNO2 
ROL PIXLNO! 
DEX 
BPL SETPIXLO 
DEY srot=1? 
BPL  CHKTABO ou: 
SEC 
LDA PIXLNO2 
S8C MASK2 
STA PIXLNO2 
LDA  PIXLNO! 
SBC MASKI 
STA PIXLNO! 
#*verifie longueur et largeur imprim 
ante 
CHKTABO LDA  HPAGI 
BNE CHKTAB1 defaut=hqr 
1 
LDA #s20 
STA  HPAGI 
CHKTAB1 CLC. 
LDA  SCRWIDTH 
ADC TABI 
ADC TAB2 
LDX HPAG2 
BEQ CHKTAB2 no 2eme 
ADC  SCRWIDTH 
LOX HPAG3 
BEQ CHKTAB2 no 3eme 
ADC  SCRWIDTH 
CHKTABZ2 BCC CHKTAB4 < 255 
CHKTAB3 LDX #843 over flow 
JMP  ERROR 
CHKTAB4 CMP MMAXUI DTH+1 
8C5S CHKTAB3 


| 


#Sauve page rero,csw,pile,reset 
DR OR PO SU CE AS OUR AU OO RS DO OS OS OA CO 


LOX ##0F 
SAVE LDA  SAUGBASL ,X 
STA  SAVERREA ,X 
DEX 
BPL SAVE 
LDA CSu 
STA SAVCSU 
LDA CSwu+1 
STA SAVCSW+ 1 
LDA  SOFTEU 
STA  SAVRESET 
LDA  SOFTEU+1 
STA  SAVRESET +1 
TSX 
STX SAVSTACK 
MAJ vecteur Reset 
LDA  #<RESET 
STA  SOFTEUV 
LDA WDRESET 
STA SOFTEU+1 
JSR  SETPWRC 
JSR FLIP 


#Confiqure Epson 
RAA SON POP DE OU AND OPUS SOS 


#PRSLOT 
JSR 


LDA 
OUTPORT P 


R#siot 


imprimante: 
JSR 


“ide buffer 
PURGE 


#initialise interface: 
LDY  #LGMSGO-1I 
LDA MSGO,Y 
JSR COUT 

DEY 
8PL 


PRINTO 


PRINTO 


linefeed: 
#LGMSG1 -1 
MSG1 ,Y 


PRINT! 


“Ua au dump horizontal/vertical 


LDA ROTATION 
BEQ DUMP1 
JSR DUMP2 


#*Sortie, restaure tout et quitte 


restaure p 
ile 


-)} retour 
a l’appel 


#*initialise imprimante pour graphiq 


ue 


GRAPHICS = * 


#Pause ou abandon ? 
KEY BOARD 
GRAPHICS 
STROBE 
HPAUSE 
GRAPHI C4 
KEYBOARD 
GRAPHIC2 
STROBE 
HABORT 
EXIT 


GRAPHICZ 


GRAPHIC4 


GRAPHICS 
GRAPHICé 


#LGMSG2-1 
MSG2,Y 
COUT 


GRAPHICé 
RTS 


AST 70 


LOLPLELELLLLLLLLLLLLLLLLLLELLLLE 


DUMP 1 - La rot = 0 


LIRLLLLLLLL22L2222LL2LLLLLLLLLLELLE) 


“Dump dejande = 1 to 3 screens 
#*1 ecran = 24 blocs de 8 lignes 
*1 bloc = 40 characteres 

#*i charactere = 8 matrice 

#1 matrice = 8 pixels 


#*Dump rotation normale: selectionne 


“ecrans, blocs de 8 lignes 
2 CNE D EN ONE D EE UN NE AN PO DU 
LDA  SCRAMINW 0-23 
AsL 
AsL 
ASL 
TAY ke 
STY VERTICAL 0-184 


“Ligne superieure pour chaque bloc 
SCRN8°1 LDY VERTICAL 0-191 





402 


403 
404 
405 
404 
407 


408 
409 
410 
41! 
412 
413 
414 
415 
416 
417 
418 
419 


420 
421 
422 
423 
424 


425 
426 


427 
428 
429 
430 
431 
432 


433 
434 
435 
436 
437 
438 
439 
440 
441 

442 
443 
444 
445 
446 
447 


448 
449 
4350 


451 
452 
453 
454 


455 
436 
457 


458 
459 
460 
4é6i 

462 
463 
464 
465 
4éé 
467 
468 
469 
470 
471 

472 
473 
474 
475 
476 


477 
478 
479 
480 
a8i 
482 
483 
484 
485 


48é 
487 


488 
48? 


490 


STY VERTICA2 sauve lign 
e superieure 

TYA 

LSR 

LSR 

LSR 30-23 

CMP SCRANIMAXU dernier b] 
oc ? 

BCS EXIT oui 

LDY #0 

STY NBHPAG 
#*Prend 1 ecran, place Tab 
SCRN8°2 LOX TABO,Y y=nbhpag 

BEQ SCRN8°3 pas de Tab 

JSR PRBL2 Print 
SCRN8°3 LDX HPAGO,Y y=nbhpag 

BEQ SCRNS8°7 pas | ecra 
n 

STX HPAG 

DEY ; premier ecran ? 

BMI SCRNS8°4 oui 

LDA VERTICAZ 

STA VERTICAL restaure | 
igne superieure 
#Saisit et sauve adresse base pour 


chaque bloc 
SCRN8°6 LDOA VERTICAL 0-191 

INC VERTICAL 

PHA 

LDX #0 

LOY #0 

JSR  HPOSN -) GBASL ( 
adresse base pour ligne) 

PLA 

AND SIZE2 7,391 

ASL 

TAX 

PH 

LDA GBASL 

ADC  SCRAMINH carry=0 

STA SAVGBASL ,X 

INX 

LDA GBASL+1I 

STA  SAVGBASL ,X 

PLA 

LSR :0-7 

CMP Si2E2 derniere 1! 
igne du groupe ? 

BCC SCRN8°4 non 
#*Dump du bloc, PRINT CR, va à la su 
ite 

JSR LINES 
SCRN8*7 INC NBHPAG 

LDY NBHPAG 

CPY #3 dernier ec 
ran fini ? 

BCC SCRN8°2 no 

JSR CROUT 

JMP  SCRNS8°1 va au bloc 
suivant 


“Sort le caractere forme par B 
#*pixels horizontaux par bloc 


LINES = » 
JSR GRAPHICS 
#“erifie fin de bloc 
LOY  SCRAMINH 0-39 
DEY 
STY HORIZON set htab 
LINES8*2 INC HORIZON 
LOY HORIZON 
CPY  SCRAMAXH 1-40 
8CS CHARS°3 sortie 
JSR CHARS 


#MAJ adresse du groupe de 8x8-pixel 


LDX #16-2 
LINES8*3 INC SAVGBASL ,X 
DEX 
DEX 
BPL LINES*3 
“Boucle sur l’octet HTAB suivant 
BMI LINES8°2 =)mp 


#Selectionne la matrice du characte 


CHARS = * 
LDA #/00000001 MAJ compte 


STA PIXLHPOS 
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491 CHARS°2 JSR PIXL3 

492 CLC 

493 ROL PIXLHPOS derniere m 
atrice ? 

494 BPL  CHAR8°2 non 

495 CHAR8°3 RTS 

496 

497 msn MMERRRMSREMEE 

498 *Dump 8 pixels des 8 lignes 

499 SR SMER RER ER MNEMENNES 

500 PIXLS = È 

soi LDX #0 

502 STX MATRIX initialisa 
tion 

503 LDA #80 

S04 STA PIXLUPOS 

S05 PIXLS*1 LDA SIZE 1,2,4 

504 STA SAVEBYTE 

507 

308 PIXLS8*2 LDA (CSAUVGBASL,X) saisie Oo 
ctet 

509 AND  PIXLHPOS selectionn 
e bit, ignore la couleur 

510 BEQ PIXL8"3 

sil LDA PIXLUPOS 

12 ORA MATRIX MAJ matric 
e 

513 STA MATRIX 

S14 

S15 PIXL8®3 LSR PIXLUPOS 

Sié BEQ DELIVER execute 8 
fois 

517 DEC SAVESYTE verifie di 
mension 

s18 BEQ PIXLS8°4 

519 BNE PIXLS83°2 =jmp 

520 PIXLS8*4 INX 

S21 INX 

522 BNE PIXLS8*1 =jmp 

523 AST 70 

524 

S2S RSS SMRMS MEME NSSS EN SN ASSMEES 

S26 *Envoi au port 1/0 de |’ imprimante 

S2 7 RO EEE SEE ME 

528 DELIVER LDA DBSTRIKE 0,80 

529 ASL jmet carry à 1 si Fla 
sh 

530 LDA SIZE 1,2,4 

331 BCC DELIVER2 

532 ASL :2,4,8 

533 DELIVER2 TAX 

534 DELIVER3 LDA MATRIX 

535 EOR NEGATIVE 

536 DELIVER4 BIT CARDACK 

537 BMI  DELIVER4 

538 STA FLUSH 

539 DEX 

540 BNE  DELIVER3 

S4i RTS 

542 AST 70 

543 

dd nés hhhhtsthte été ++ ++ 

545 DUMP2 - * rot = 1! 

Sdé hhtthththétthtthéthhtstttsétttt ++ 

547 

548 “Dump demande = | à 3 ecrans 

549 #1 ecran = 40 blocs de colonnes 

550 #1 bloc = 192 groupes de ligne 

551 #1 groupe de ligne = 2 octets 

552 #1 matrice = 8 pixels > 1 octet 

553 

JSQ +mmasemmenesmemsemnn 

555 “Boucle sur les colonnes 

EE EE 

537 LDY  SCRANMINH 0-39 

s58 DEY 

55? STY HORIZON 

Séo CcoL7*1 LDY #0 

sé! STY TRANSIT2 

S62 INC HORIZON 

S63 CoL7*2 LDA HORIZON 

564 CMP  SCRAMAXH derniere T 
ab ? 

365 BCcS COL7°9 ourisortie 

Séé #MAJ masques pour Tabs courant et s 
yivants 

S67 AND SIZE2 modulo 8,4 

2 

, 

568 STA SAVEBYTE 0-7/3/1 

369 

570 LDA SIZE 1,2,4 

S71 CMP 4 

S72 BNE COL7°20 

373 LDA #3 

574 COL7*20 PHa 

575 TAY 

376 COL7*21 DEY 

377 8EQ COL7°22 

578 ASL SAVEBYTE 

379 BPL COL7°21 j)mp 

80 

381 COL7*22 PLA 3;1,2,3 

582 ASL 

583 ASL 


623 
624 


629 
630 
631 


632 
633 
634 
635 


634 
637 
638 
639 
640 


é41 
642 
643 
644 


645 
é4é 


647 
648 


ééi 
662 


ééé 


668 
éé9 
670 
671 


ASL 
ADC SAVEBYTE c=0 
AOC. TRANSIT2 
ASL 
TAY 
LDA MASKTABL-16,Y saisie 
STA MASK1 masques 
BEQ COL7"°1 BSeme=ier 
INY 
LDA MASKTABL-16,Y 
STA MASK2 
LDY #0 
STY NBHPAG 
#Saisit | ecran et imprime Tab 
coL7*3 LDX TABO,Y y=nbhpag 
BEQ COL7°4 
JSR PRBL2 
CcoL7*4 LDX  HPAGO,Y yænbhpag 
8EQ COL7-7 
STX HPAG 
JSR LINE? 
COoL7*7 INC NBHPAG 
LOY NBHPAG 
CPY #3 dernier ec 
ran execute ? 
BCC cCcot7-3 non 
JSR CROUT 
INC  TRANSIT2 
LDOR TRANSIT2 
CMP SIZE 
BCC COL7°2 
BCS COL7°1 =jmp 
CcoL7*9 RTS sortie 


ARE EARE IT AI EME M EM MIN MINT ME MR EE CE NN UNE 
#*#Oump toutes lignes pour 1 colonne 
SELLES ESS E. EIRE SARMMETIIMEMRE LES 


LINE? = * 
JSR GRAPHICS 
LOR  SCRANMAXU 1-24 
ASL 
asL 
ASL 
STA VERTICAL 83-192 
LINE7-2 DEC VERTICAL 
LDA VERTICAL saisie lig 
ne 
LOX #0 
LOY #0 
JSR HPOSN -> GBASL 
JSR BSYTE7 dump 1 Tab 
sur | ligne 
LDA  SCRAMINV 0-23 
ASL 
AsSL 
ASL 
CMP VERTICAL derniere 1 
igne? 
BNE LINE7°2 non 
RTS 
RM M DE EU DU DE D MES DRE DU RUE OS DCE OU NUE CU GE 
= 


#Saisie octets pour 1 tab sur 1 col 
onne 


an: dur 


BYTE7 = C2 


LDY HORIZON ler octet 
LDA  (GBASL) ,Y 
AND  MASKI 
STA SAVEBYTE 
INY 
LDA (GBASL),Y Zeme octet 
AND MASK2 
STA MATRIX 
“Matrice inversee des octets 
TSX 
LDA MASKI 
MERGE7" 1 ASL SAVEBYTE 
PHP 
ASL 
BCC MERGE7*1 
PLP 
ROL MATRIX 
CMP 40 
BNE MERGE7"1 
TXS 
#*Etend matrice si taille large 
LOX SIZE 1,2,4 
DEX 
BEQ PIXL7°1 
TXA  ; 1,3 
PHA 
EOR 00000010 
TAY _: 3,1 
SWAP7*1 LSR MATRIX 
PHP 


681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 #Permute 
our 2 
69s PIXL7°1 
697 
698 
699 
700 
701 
702 
703 PIXL7°3 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
7+é6 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 


PIXL7°2 


HGR 


HGR2 
HGR * GO 


TAB 


INVERSE 


FLASH 


ROT 


antity 
774 
775 
776 
777 
778 
779 
780 
781 


SCALE 


SAVEBYTE 


SWAP7°2 


SWAP7" 1 


SAVEBYTE 
MATRIX 


bits de la matrice 2 p 


LE] 
MATRIX 


PIXL7°2 
*8 
MATRIX 
PIXL7°3 


DELIVER 
70 


sortie 


RESIIME MMM RM MM MENMME TS 
“Commandes des Parametres 


* 
“1 


”-Jmp 


GETBYTC F3 
HMAXW I DTH 
PARM° KO 


TAB2 
TAB3 
TABI 
TAB2 
TAB1 
CHKCLS 
DECRTXT 


Risbiitises 


* 
NSFF 
NEGAT IVE 


sFF 


» 
#80 
DBSTRIKE 
*"L" 
DUMPTYPE 


LI 


* 
GETBYTC 


ROTAT I ON 


DECRTXT 


JILOTYERR illegal qu 


S12E 


782 #Determine size2 (pour rot=0) 
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783 LDA #15 274 emmmmmmemanmnemn ss 964 #Constantes du programme: 
784 STA S1ZE2 375 Hi = PIXLHPOS 965 MASKTABL = . de D0a]lé 
785 TXA 87e n2 = PIXLVPOS pour scale=1/2/4 
786 SCALE*2 LSR SIZE? 7,3,1 877 VI = MASK 1 ?éé DFB %01111111,%00000001 
787 LSR 878 V2 = MASK2 967 DFB %01111110,00000011 
788 BNE SCALE "2 97° FLIP = L 948 OFB %01111100,#00000111 
789 BEQ PARM'X =Jmp 880 8IT FLIPFLAG rot)1? 969 DFB %01111000,00001111 
790 881 BPL FLIP°8 non:sortie 970 DFB %01110000 
791 SCRN = * 882 LDX #3-1 971 DFB %01100000,7 
792 JSR GETBYTC 0-39 883 STX NBHPAG 972 DF8 %01000000,%01111111 
793 STX  SCRAMINH 884 FLIP*0 LDX NBHPAG 973 OFB 0,0 
794 STX  SCRWIDTH 8385 L HPAGO ,X 974 DFB %00001111,/00000000 
795 JSR CHKCOM 386 BEQ FLIP°7 inutilise 97s DF8 
794 JSR GETEBYT 1-40 387 STA  HPAG 976 DF8 %00011110,00000000 
797 TXA 888 LDA #0 977 DF8 %01100000,700000011 
798 BEQ PARM°KO maxh=0 889 STA V1 978 DFB %00111100./00000000 
799 CPX #41 890 LDA #191 979 DF8 %01000000,700000111 
800 BCS  PARM° KO maxh >40 391 STA V2 #80 DF8 01111000 ,00000000 
801 CPX SCRWIDTH 892 ?81 DFB 0,0 
8302 BCC PARM°KO maxhéminh 893 FLIP*0S LDA #0 782 DFB8 *%00000011,/:00000000 
803 BED PARM"KO maxh=minh 394 STA Hi 983 DFB %00001100,7:00000000 
304 STX  SCRNMAXH 89s LDA 439 784 DF8 ‘00110000 ,/00000000 
305 8976 STA H2 78s DFB 01000000 ,/00000001 
806 JSR CHKCOM 897 LDA VI 986 DF8 %700000110,/00000000 
307 JSR GETBYT 0-23 898 LDX #0 987 DFB 00011000 ,/00000000 
308 STX  SCRNMINW 399 LDY #0 #88 DFB 01100090 ,;:00000000 
80? STX  SCRWIDTH 700 JSR  HPOSN 987 DFB 0,0 
810 JSR CHKCOM 901 LDA GBASL 990 CMDNAME DFB #91 HGR 
811 JSR GETBYT 1-24 902 STA SAVGBASL ?91 DFB #90 HGR2 
812 TxXA 903 LDA GBASL+1 992 DFB #C0 TAB( 
813 BEQ PARM° KO maxvy=0 #04 STA  SAVGBASL+ 1 993 DFB #9E INVERSE 
814 CPX #25 705 LDRA V2 794 DFB #9F FLASH 
815 BCS PARM°KO maxv)24 906 LDX #0 995 DFB 378 ROT= 
816 CPX  SCRUIDTH 907 LDY #0 996 DFB #99 SCALE= 
817 BCC  PARM"KD maxu (mi nu 908 JSR  HPOSN 997 DF8 #07 SCRNC 
318 BEQ PARM"KDO max væemi NU 909 998 DFB sBA 2? (PRINT) 
819 STX SCRNMAXV 910 FLIP°1 LDY Hi 999 CMDADDR DDB HGR-1 
820 JSR CHKCLS ) 11 LDA (SAVGBASL) ,Y 1000 DDB HGR2-1 
821 712 JSR FLOP 1001 DDB TAB-1 
822 DECRTXT = * soustrait 913 PHA 1002 DDB INVERSE-! 
82 LDX TXTPTR 1 de 714 LDY H2 1003 DDB FLASH-I 
324 PHP stxtptr 915 LDA (GBASL),Y 1004 DDB ROT-1! 
825 DEX 716 JSR FLOP 1005 DD8 SCALE-I 
826 STX TXTPTR 917 LDY Hi 1006 DDB SCRN-1 
827 PLP 718 STA (SAVGBASL) ,Y 1007 DDB HELP-1 
828 BNE DECRTXT2 919 PLA 1008 
829 DEC TXTPTR*I 920 LDY H2 1009 #Rappel des commandes (help): 
830 DECRTXT2 RTS 921 STA  (GBASL) ,Y 1010 MSGHELP = 2 
8331 AST 70 922 INC H1 1011 DFB CR,CR 
832 923 DEC H2 1012 INV “#*EPSON HGR SCREEN DU 
232 em mmesmeme me DE 924 BPL  FLIP°1 MP #* 

Le 1 andes 925 INC VI 1013 DFB CR 
ent asr rte 926 DEC V2 1014 ASC “[C] 1984 ALEXANDRE À 
836 HELP = . 927 LDA V2 VRANE * 
837 LDY #0 928 CMP  #SSF 1015 DFB CR,CR,CR 
838 HELP2 LDA MSGHELP ,Y 929 BNE FLIP°0S 1014 INU “£ PR#" 
839 BEQ HELP3 930 FLIP*7 DEC NBHPAG ecran suIv 1017 ASC * [TAB(T)] [ ,HGR/HGR2 
840 JSR COUTI ant ? /HGR31 * 
841 INY 931 BPL FLIP-0 1018 DF8 CR 
842 BNE HELP2 =Jmp 932 FLIP‘8 RTS 1019 ASC " L,INVERSE]"* 
843 HELP3 PLA 933 1020 DFB CR 
844 PLA 934 FLOP - L 1021 ASC * [L,FLASH]* 
845 JMP  CHRGET 935 LOX #8 1022 DFB CR 
346 AST 70 936 FLOP°1 ROL 1023 ASC * [L,ROT=0/11" 
847 937 PHP 1024 OF8 CR 
848 +=” 938 DEX 1025 ASC * [L,SCALE=1/2/4]" 
849 #Reset: sortie d'urgence 939 BNE FLOP°1 1026 DFB CR 
BSO mme MESSE EE 940 LOX #7 1027 ASC “ [ , SCRNK C1 C2,L1 ,L2 
851 RESET - * ?41 FLOP°2 PLP >2° 
852 JSR PURGE 942 ROL 1028 DFB CR,0 
853 TSX 943 DEX 1029 
854 STX  SAVSTACK 744 BNE FLOP*2 1030 #Codes de controle des imprimantes 
835 JSR EXIT 945 ROL Epson : 
856 JMP  (SAVRESET) retour au 946 PLP 1031 MSGO = * 

Reset normal 947 ROR 1032 DFB "N°,"0*","8°,CI 
857 PURGE = » 948 RTS 1033 MSGI = * 
858 ide le buffer de |‘imprimante ?49 1034 20 TWINLE 
85? LDA #0 DSQ MMS RME EEE 1035 DFB 4 
860 TAX PS1 #*Stockage des constantes 1036 ELSE 
861 TAY PS2 mm SES 1037 DF8 8 
862 LDA DEL 933 1038 FIN 
863 PURGE®2 STA FLUSH 954 *Parametres par defaut: 1039 DFB “A",ESC,"3" ,ESC,0,"R° 
864 DEX 2#* DEFAULT DFB 0,0,0,0,1,7,0,0,0,0,4 ESC 
365 BNE PURGE * 2 0,0,24,0,0,0 1040 MSG2 = #* 
866 DEY P36 1041 PIXLNO1 DFB 0 
867 BNE PURGE‘2 957 #Sauvegarde de l’environnement: 1042 PIXLNOZ2 DFB 0 
868 RTS 9758 SAVAMPER DA sFF58 1043 OUMPTYPE DFB “K" 
869 AST 70 759 SAVEARER DA 0,0,0,0,0.0,0,0 1044 DFB ESC 
870 760 SAVCSW DA sFDFO 1045 
871 Fé1 SAVRESET DA sFFé9 1046 SKP 70 
872 762 SAVSTACK DFB SFF 1047 LST ON 
873 #Flip-flop: rotation ecran 963 1048 END 
Récapit i 

un ulation 8020- 44 8D Fé 03 A9 80 8D F7 8058- 80 CA 10 F7 A9 CB 8D 8A 
*8000.848B 8028- 03 49 00 85 48 40 00 00 8060- 86 20 Bi 00 A0 01 DO 08 

8030- 00 00 01 07 00 00 00 00 8068- 20 81 00 FO 2C 20 BE DE 

8000- AD Fé 03 C9 4A D0 07 AD 8038- 28 00 18 00 00 00 00 00 8070- A9 80 48 AS 67 48 20 B7 
8008- F7 03 C9 80 F0 1B AD Fé 8040- 00 00 00 00 00 00 00 00 8078- 00 F0 1C A2 08 DD BB 85 
8010- 03 8D 74 85 AD F7 03 8D 8048- 00 00 C9 8A F0 03 6C 74 8080- F0 08 CA 10 F8 68 68 4C 
8018- 75 85 A9 4C 80 F5 03 A9 8050- 85 A2 0F BD 64 85 90 2E 8088- C9 DE 8A DA AA BD C4 85 


36 


Pom's n° 17 


8070- 48 E3 BD C4 85 48 60 68 8290- 
8098- 68 DS AD 38 80 38 ED 37 8293- 
80A40- 80 AC 30 80 F0 07 AD 34 82A0- 
8048- 80 38 ED 39 80 80 46 80 3248- 
80B0- AE 32 80 CA FO 0é 18 6D 8280- 
3083- 46 80 DO F7 8D 46 80 80 8288- 
80C0- 44 80 80 89 36 A2 00 8 82C0- 
80C3- 43 90 8E 88 86 A2 02 2C g2c8- 
8000- 2F 80 10 07 ES 0E 44 80 8200- 
80D8- 2€ 43 80 0€ 99 86 2E 98 82p8- 
80E0- 36 CA 10 F7 98 10 13 38 82€0- 
80E3- AD 89 86 ED 44 80 80 89 82E3- 
30F0- 86 AD 88 8$ ED 43 80 80 82F0- 
80F8- 88 86 AD 3D 80 DO 05 A? 82F8- 
8100- 20 80 30 80 18 AD 46 80 8300- 
8108- 60 36 80 6D 35 80 AE 3C 8308- 
8110- 80 F0 0B 60 dé 80 AE 38 8210- 
8118- 80 FO 03 60 46 80 90 05 8318- 
8120- A2 45 4C 12 D4 C9 65 80 8320- 
8128- F7 A2 OF 85 00 90 76 85 3328- 
8130- CA 10 F8 AS 36 8D 8é 85 8330- 
8139- AS 37 80 87 85 AD F2 03 8338- 
8140- 80 88 85 AD F3 03 80 89 8340- 
8148- 85 BA SE SA 85 A9 BA 80 8348— 
8150- F2 03 A9 84 80 F3 03 20 8250- 
8158- 6F FB 20 D7 84 A9 O1 20 8358- 
8160- 9S FE 20 C7 84 A0 03 89 8260- 
8168- 7C 86 20 ED FD 88 10 F7 8368- 
8170- AO 07 B9 80 86 20 ED FD 8370- 
3178- 88 10 F7 AD 30 80 FO Si 8378- 
8180- 20 CO 82 A2 OF BD 76 85 8380- 
8188- 95 00 CA 10 F8 20 D7 84 8388- 
3190- AE 84 85 94 AD 8é 85 85 8390- 
8198- 36 AD 937 85 85 37 AD 88 8398- 
S1A0- 85 80 F2 03 AD 89 85 9D 83A0- 
81A8- F3 03 4C 6F FB AD 00 Co 8348- 
8180- 10 13 80 10 CO C? S8 00 8380- 
8188- 08 AD 00 CO 10 FB 8D 10 8388- 
81C0- CO C? 83 FO BE A0 03 B9 83c0- 
81C8- 88 86 20 ED FD 88 10 F7 83c8- 
81D0- 60 AD 39 80 0A 0A 0A A8 8300- 
81D8- 8C 3F 80 AC 3F 80 8C 40 8308- 
81E0- 80 98 44 44 4A CD 34 80 83E€0- 
81E3- BO 99 A0 00 8C 47 80 BE 83E8- 
81F0- 34 80 FO 03 20 44 F9 BE 83F0- 
81FS- 38 90 F0 36 86 Eé 88 30 83F8- 
8200- 06 AD 40 80 80 3F 80 AD 8400- 
8209- 3F 80 EE 3F 80 48 A2 00 8408- 
8210- AO 00 20 11 F4 68 2D 33 8410- 
8218- 80 OA AA 48 AS 26 6D 37 8418- 
8220- 80 95 00 E8 AS 27 95 00 8420- 
8228- 68 44 CD 33 80 90 DS 20 8428- 
8230- 42 82 EE 47 80 AC 47 80 8430- 
8233- CO 03 90 83 20 8E FD 4C 8438- 
8240- DB 81 20 AD 81 AC 37 80 8440- 
8248- 88 8C 3E 80 EE 3€ 80 AC 8448- 
8250- 3E 80 CC 38 80 BO 1B 20 8450- 
8258- 64 92 A2 0E Fé 00 CA CA 8458- 
8260- 10 FA 30 E8 A9 01 80 41 8460- 
8268- 90 20 73 82 18 2E 41 80 8468- 
8270- 10 F7 60 A2 00 8E 45 80 8470- 
8278- A9 830 8D 42 80 AD 32 80 8478- 
2230- 8D 48 80 A1 00 20 41 80 8480- 
8288- FO 09 AD 42 80 00 45 80 8488- 





Pom's n° 17 


45 80 4E 42 80 F0 0B 8490- 46 80 90 ?F FO 90 8E 34 
48 30 FO 02 DQ E4 E8 3493- 80 20 BS3 DE A6 BS 09 CA 
DO DA AD 2F 89 04 AD 3440- 86 B8 29 D0 02 Cé B9 60 
80 90 0t OA AA AD 45 84A8- A0 00 89 Dé 85 F0 06 20 
40 2E 80 2C C1 Ci 30 8480- F0 FD C3 D0 F5 68 48 4C 
80 90 CO CA D0 EF 60 8488- B1 00 20 C7 34 BA 8E 84 
37 80 88 8C 3E 80 A0 84C0- 85 20 93 31 6C 88 835 A9 
SC 49 80 EE 3€ 80 AD 84C8- 00 AA A8 A9 7F 8D 70 C0 
80 CD 38 80 BQ 65 20 84D0- CA DO FA 38 DO F7 60 2C 
80 3D 48 90 AD 32 30 84D8- 31 80 10 75 A2 02 8E 47 
04 D0 02 A9 03 48 A8 84E0- 80 AE 47 80 BD 38 80 F0 
F0 0S 0E 48 80 10 F8 84€3- 63 85 Eé A? 00 8D 43 30 
0A 0A 0A 6D 48 80 60 84F0- A9 BF 80 44 80 A9 00 8D 
80 0A A8 B9 78 85 80 84F8- 41 90 A9 27 930 42 80 AD 
80 F9 C3 C8 89 78 85 8500- 43 80 A2 00 A0 00 20 11 
44 80 A0 00 8C 47 80 8508- F4 AS 246 35 00 AS 27 85 
34 80 FO 03 20 44 F9 8510- 01 AD 44 80 A2 00 AO 00 
38 80 FO 05 86 Eé 20 8518- 20 11 F4 AC 41 80 Bi 00 
83 £E 47 80 AC 47 80 8520- 20 52 85 48 AC 42 80 B1 
03 90 E4 20 8E FD EE 8528- 26 20 52 85 AC 41 80 91 
80 AD 49 80 CD 32 80 8530- 00 48 AC 42 80 91 246 EE 
95 B0O 38 60 20 AD 81 8538- 41 80 CE 42 80 10 DC EE 
34 80 0A CA 0A 80 3F 8540- 43 80 CE 44 830 AD 44 80 
CE 3F 80 AD 3F 80 A2 9548- C9 SF D0 A9 CE 47 80 10 
AD 00 20 11 F4 20 65 8550- 90 460 A2 08 24 08 CA D0 
AD 39 80 OA A 0À CD 8558- F8 A2 07 28 24 CA DO F8 
80 D0 ES 60 AC 3E 80 8560- 24 28 64 60 00 00 00 00 
26 2D 43 80 8D 48 80 8568- 01 07 00 00 00 00 23 00 
B1 26 2D 44 80 8D 35 8570- 18 00 00 00 58 FF 00 00 
BA AD 43 80 0E 48 80 8578- 00 00 00 00 00 00 00 00 
Où 90 F9 28 2E 45 80 8580- 00 00 00 00 00 00 FO FD 
00 D0 Ft ?A AE 32 80 8588- 69 FF FF 7F O1 7E 03 7C 
FO 1F 84 48 49 02 48 8590- 07 78 OF 70 1F 60 3F 40 
45 80 08 28 08 6E 48 8598- 7F 00 00 OF 00 70 O1 1E 
CA 10 F8 28 68 48 AA 85A0- 00 60 03 3C 00 40 07 78 
10 ED 68 AD 48 80 8D SSA8- 00 00 00 03 00 OC 00 30 
80 18 A2 08 2E 45 80 8580- 00 40 01 0é 00 18 00 49 
CA D0 F9 A2 08 28 2€ 8588- 00 00 00 91 90 CO ?E 9F 
80 CA D0 F9 4C A3 82 8SC0- 98 99 D7 BA 83 C7 83 DA 
01 B1 88 C7 33 08 A7 85C9- 83 EC 94 09 84 OF 84 1A 
28 DO 09 20 81 00 A9 8500- 84 39 S4 55 84 A7 8D 8D 
DO 02 A9 40 AE 3C 80 8508- 2A 20 0S 10 13 OF 0€ 20 
38 80 AE 30 80 8€ 3C 85E0- 08 07 12 20 13 03 12 0S 
80 30 80 60 20 FS Eé 8SES8- 05 0E 20 04 15 0D 10 20 
64 B0 3F 8A AE 35 80 85F0- 2A 8D DB C3 DD A0 Bi B9 
34 80 AE 36 80 8E 35 8SF8- BS B4 A0 Ci CC CS D8 C1 
8D 36 SQ 20 88 DE 4C 8600- CE C4 D2 CS A0 Ci Dé D2 
84 À? FF 80 2E 80 60 8609- Ci CE CS 8D 8D 8D 26 20 
80 80 2F 80 A? CC 8D 8610- 10 12 23 A0 DB D4 Ci C2 
86 60 20 FS Eé E0 04 8613- A8 D4 A9 DD A0 DB AC C8 
11 E0 02 70 07 A9? 80 8620- C7 D2 AF C8 C7 D2 82 AF 
31 80 CA CA SE 30 80 8428- CS C7 D2 83 DD 80 A0 A0 
9C 84 68 68 68 68 4C 8630- DB AC C? CE Dé CS D2 D3 
Ei 20 FS Eé E0 0S 80 8438- CS DD 8D A0 A0 DB AC Cé 
E0 03 FO EE 8E 32 e0 8640- CC Ci D3 C8 DD 8D A0 A0 
OF 8D 33 80 SA 4E 33 8648- DB AC DZ CF D4 BD 80 AF 
4 DO FA FO DA 20 F5 8650- Bi DO 30 A0 A0 DB AC 03 
8E 37 80 8E 46 80 20 8658- C3 Ci CC CS 80 B1 AF 82 
DE 20 F8 Es 8A FO CB 8660- AF B4 DD 8D AO A0 DB AC 
29 B0 C7 EC 46 80 90 8668- D3 C3 D2 CE À8 C3 81 AC 
FO CO 8E 38 80 20 BE 8670- C3 82 AC CC Bt AC CC 82 
20 F8 Eé SE 39 80 8€ 8678- A9 DD 30 00 CE 80 88 09 
80 20 BE DE 20 F8 Eé 8680- 04 C1. 1B CO 18 00 D2 18 
F0 AS E0 19 80 A4 EC 8688- 00 00 CB 18 


Editeur plein écran : EPE 


Le Pacha Apple IH, //e, //c 


Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein 
écran sans relire les lignes. ‘ 

Recherchez toute chaine de caractères. 

Choisissez vous-même les codes de contrôle d'EPE. 


Modifiez ÊPE : le fichier source est sur la disquette. 


150,00 F TTC franco (bon de commande page 74). 
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sont des marques dépc 


Apple et le logo Apple 


Puisque nous ne 
viez besoin, nous 
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Un clavier 63 touches type AZERTY comprenant une accentuation complète et des 
caractères majuscules/minuscules intégrés. 





Connecteur Connecteur Connecteur Connecteur Connecteur pour l le lecteur Connecteur po Hs. 
pour ” souris. pour le modem. pour TV. couleur. pour le moniteur vidéo. de Rp Ile externe. imprimante ou je Aceur. . Voicicomment 
l'écran de haute 


très facilement 
Al! QUE __ IL nos vo 
gs PET TT  autantdemémoire 


en un seul appareil 
était indispensable. 





Seedrin SARL. Avenue de l'Océanie - ZA. de Courtabœuf B.P 131, 91944 Les Ulis Cedex 





savions pas de quoi 
VOUS avons tout donné. 





/ fl () f Omn Il I s Oursons malin 
els au monde; 16.000 Voici 8 exemples de ce que vous pouvez afficher sur votre 
ux, traitement de texte, écran. 8 parmi 16.000 ! à vous de découvrir les autres. 
re, planification. Lorsque vous aurez essayé l'Apple IIc vous ne regretterez pas 


notre générosité. 








nt se présente l'Apple Ilc relié à 
le définition et à la souris. Ses connexions directes vous permettent d'utiliser 
nt toutes les fonctions dont vous avez besoin : imprimante, modem... 










Savons donné autant de place, autant de beauté, 
ire (128 Ko), autant de possibilités 
eil c'est que cela 
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Catalogue sur Imprimante 


Jean-Luc Bazanegue 


Nos précédents articles destinés aux 
utilisateurs du Macintosh portaient 
essentiellement sur le graphisme. 
Nous nous sommes cette fois penché 
sur la gestion des disquettes et, plus 
généralement, sur les entrées/sorties 
du Macintosh. Pour illustrer le fonc- 
tionnement de certaines routines du 
système, nous avons écrit un pro- 
gramme qui permet d’obtenir simple- 
ment sur imprimante un catalogue 
complet de n'importe quelle dis- 
quette. En effet, si le ”finder” auto- 
rise la visualisation du contenu d’une 
disquette, il ne permet pas un report 
aisé sur papier et, de plus, l'utilitaire 
en question nous cache plusieurs in- 
formations intéressantes. 


Mode d'emploi 


Le programme est écrit avec la ver- 
sion 2 du Basic Microsoft. Toutefois, 
les explications qui vont suivre per- 
mettront à ceux d’entre-vous qui ne 
possèdent pas encore cette version 
de l'adapter au vieux” Basic. 
L'utilisation du programme est très 
simple et ne demande que très peu 
d'explications. Le menu catalogue” 
permet d'obtenir les informations sur 
les fichiers soit sur imprimante, soit à 
l'écran, fichier par fichier. 


Macintosh 128K 


Avec ce modèle, l'impression ne peut 
se faire qu'en qualité ”’brouillon”. Si 
une autre option est demandée, le 
programme ne se plante” pas, mais 
passe à linstruction suivante après 
quelques instants d’hésitation. Pour 
le reste, le fonctionnement est le 
même sur une version 512K ou 
128K, mise à part la vitesse d’exécu- 
tion, sensiblement moins élevée sur 
un 128K. 


Informations fournies par le 
programme 


Comme il est inutile d'indiquer, par 
exemple, ce que veut dire ‘nombre 
de fichiers sur la disquette”, nous ne 
parlerons ici que des informations 
dont la signification n'est pas évi- 
dente. 


Informations sur la disquette 
(volume) 


Protection logicielle : il s’agit d’un in- 
dicateur dans le catalogue de la dis- 
quette, auquel l'utilisateur n’a norma- 
lement pas accès. Lorsque cet 
indicateur est positionné, il n'est plus 
possible de modifier le contenu de la 
disquette, tout comme avec la pro- 
tection mécanique située sur le bof- 


tier de la disquette. 


Protection matérielle : la protection 
mécanique contre l'écriture citée ci- 
dessus. 


Premier bloc du catalogue : le nu- 
méro indiqué correspond au premier 
des blocs logique (512 octets) conte- 
nant les informations sur les fichiers. 
C'est dans cette zone que notre pro- 
gramme va chercher les informations. 


Nombre de blocs sur la disquette 
(sauf blocs du catalogue) : cette va- 
leur varie en fonction de la taille des 
blocs. 


Nombre d'octets par bloc : générale- 
ment 1024 octets. 

Nombre minimum d'octets succes- 
sifs: zone physique minimale pour 
que le système alloue un bloc à un 
fichier. 


Premier bloc alloué: premier bloc 
occupé par un fichier. 


Premier numéro de fichier disponi- 


ble : le numéro qui sera attribué au 
prochain fichier créé. La valeur indi- 
quée correspond rarement au nom- 
bre de fichiers présents sur la dis- 
quette + 1. Ceci est dû au fait que la 
destruction d’un fichier n’entraîne 
pas la mise à jour des numéro de fi- 
chiers. Ainsi, s’il y a 4 fichiers sur la 
disquette et que nous détruisons le 
quatrième, le prochain fichier créé se 
verra affecter 5 comme numéro, le 
numéro 4 n'étant plus utilisé. 


Informations sur les fichiers 


Type : indique le type de fichier qui 
peut être, par exemple, "TEXT” 
pour un fichier créé à partir du Basic, 
ou encore ’APPL” pour un pro- 
gramme d'application. 


Auteur : ceci peut être les initiales du 
créateur du programme, mais il s’agit 
beaucoup plus souvent d’une abré- 
viation du nom du programme d’ap- 
plication qui a généré le fichier. Ainsi, 
un fichier de caractères issu de Font 
Mover” contient ’FMOV”’ dans cette 
zone; si on remplace "’FMOV” par 
autre chose, "Font Mover” ne recon- 
naît plus son enfant. 


Données et ressources : les fichiers 
du Mac sont divisés en deux zones : 
une partie données” et une partie 
ressource”. Un document MacWrite, 
par exemple, sauvegardé avec l'op- 
tion ‘le document entier”, contient 
dans la partie données”, le texte 


proprement dit, alors que la partie 
“ressource” contient les informations 
sur les polices de caractères, les 
règles, etc. Certains fichiers n'utili- 
sent que la partie ‘’données” (un fi- 





chier ’TEXT” créé à partir du Basic), 
d’autres seulement la partie ressource 
(le Basic Microsoft par exemple). 
Lorsque qu'une des deux zones n'est 
pas utilisée, le programme affiche 
0” pour le premier bloc. 


Bundle : nous avons laissé le mot an- 
glais car tas” ou paquet” ne nous 
semblait pas très élégant. Ce terme 
est affecté au fichier regroupant plu- 
sieurs ‘’sous-fichiers”, c'est le cas du 
fichier système et de la plupart des 
programmes d'application. 


Le programme 


La seule difficulté rencontrée pour 
l'écriture de ce programme était 
d'obtenir les informations situées sur 
la disquette, ce qui est impossible 
avec seulement le Basic. Nous avons 
dû faire appel à quelques routines 
faisant partie du système de gestion 
de disquettes du Macintosh. Les ex- 
plications qui vont suivrent porteront 
donc essentiellement sur l’utilisation 
de ces routines. 


Lecture des informations sur 
le volume 


L'instruction FILES$, légèrement dé- 
tournée de son utilisation normale, 
retourne dans F$ le nom du volume 
(la disquette) suivi de ”:” et du nom 
du fichier sélectionné. Dans le cas 
présent, seul le nom du volume nous 
intéresse. Pour conserver unique- 
ment ce nom, il suffit de repérer le 
séparateur, l’instruction LEFT$ fait le 
reste. On peut noter que lon 
conserve dans la nouvelle chaîne le 
séparateur, indispensable à la routine 
permettant de lire les informations 
sur le volume. On appelle ensuite la 
routine en langage machine VO- 
LUME, dont le point d'entrée se 
trouve dans le 75ème élément du ta- 
bleau de variables entières C, en lui 
passant comme argument l'adresse 
où se trouve, dans Fordre, deux 
octets contenant la longueur de la 
chaîne F$ et trois octets contenant 
l'adresse du premier caractère de la 
chaîne (voir l’article ’CALL : exem- 
ple d'application”, dans le numéro 
16 de Porm's). 


Nous sommes maintenant dans la 
routine en langage machine. Après 
avoir fait la liaison indispensable lors- 
qu'il y a passage de paramètres, 
nous chargeons l'adresse de base du 
tampon TABLE (84 octets) dans le 
registre d'adresse AO (pour toutes les 
routines d’entrées/sorties, il faut ré- 
server un tampon de mémoire, 
pointé par A0 au moment de l’ap- 
pel). On fait ensuite une copie de AO 
dans Al, qui va nous servir comme 
pointeur pour mettre à zéro le tam- 
pon TABLE. A la ligne 6, on charge 
la valeur 20, ce qui correspond au 
nombre de longs mots (4 octets) 
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moins un, dans le registre de don- 
nées DO. La boucle BINIT met à 
zéro quatre octets à chaque tour, ceci 
en partant de l’adresse de base du 
tampon, jusqu'à ce que le contenu 
du registre DO soit égal à —1. Cette 
petite manoeuvre n’est pas indispen- 
sable lors de la lecture des informa- 
tions sur le premier volume, puisque 
le démarrage de l'exécution du pro- 
gramme Basic remet à zéro le ta- 
bleau de variables C qui contient le 
tampon TABLE, par contre, si on ne 
le vide pas pour les lectures suivan- 
tes, le fonctionnement de la routine 
serait perturbé. 


Nous chargeons, à la ligne 9, 
l'adresse de base du tampon de mé- 
moire NOM”, destiné à recevoir le 
nom du fichier, dans le registre 
d'adresse A2, et nous en faisons une 
copie dans l'adresse pointée par A0 
+ 18. L'adresse où se trouvent les 
informations sur la chaîne F$ est, 
depuis le CALL, dans la pile dont le 
sommet est pointé par A6 (voir nu- 
méro 16). Entre notre adresse et le 
sommet de la pile, nous trouvons 
dans l’ordre l’ancienne valeur de A6 
(4 octets) et l'adresse de retour au 
Basic (4 octets); l'adresse des infor- 
mations sur la chaîne est donc à 8 
octets de l'adresse pointée par A6. 
MOVE. 8(A6).A1 effectue une 
copie de l'adresse en question dans 
le registre A1. Nous avons vu précé- 
demment que les informations sur la 
chaîne débutent par deux octets indi- 
quant la longueur de cette dernière, 
or, un nom de volume contient au 
maximum 28 caractères ce qui fait 
que seul le second octet est signifiant 
dans le cas qui nous intéresse au- 


jourd’'hui.  MOVEB  l1(A1),(A2)+ 
place une copie de cet octet dans le 
premier octet du tampon NOM 


pointé par A2; le registre A2 est 
auto-incrémenté et pointe maintenant 
sur le second octet du tampon NOM. 


À la ligne 13, on place dans le regis- 
tre D2, en allant du poids fort au 
poids faible, l’octet contenant le 
nombre de caractères et l'adresse de 
la chaîne sur trois octets. L'instruc- 
tion ANDIL #$O0FFFFFF,D2 force à 
0 les 8 bits de poids fort de D2, ce 
qui nous permet d'obtenir une 
adresse valide. On fait une copie du 
registre D2 dans le registre d'adresse 
A3 (le 68000 ne permettant pas un 
AND” avec un registre d'adresse, 
nous sommes obligé de passer par 
un registre de données. 


La boucle des lignes 16 à 18 fait une 
copie de la chaîne, sans se soucier 
de sa longueur, depuis sa position 
initiale vers le tampon NOM. Enfin, 
on décrémente le mot pointé par AO 
+ 28 de 1, qui passe de O à $FFFF 
soit, en complément à deux, une va- 
leur négative. 
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Nous pouvons maintenant appeler la 
routine du Macintosh qui permet de 
lire les informations sur la disquette: 
nous l’appelerons INFOVOL. Pour 
appeler la routine INFOVOL., il faut 
introduire dans le programme le 
code illégal $AOO7 (voir Pom's 16: 
"Appel des routines en ROM”). 


Avant d'étudier les informations re- 
tournées par la routine, une petite ré- 
capitulation s'impose. Avant d'appe- 
ler INFOVOL, il faut avoir dans un 
tampon pointé par A0 : 

18(A0): l'adresse (32 bits) où se 
trouve un octet contenant le nombre 
de caractères dans la chaîne, suivi 
des N caractères la constituant, v 
compris le ”:”. 

28(A0): une valeur négative sur 
deux octets. 


ci est la méthode employée par notre 
programme pour indiquer le volume 
à la routine. Cependant, il existe 
d’autres possibilités : si AO + 28 est 
positif, la routine utilise cette valeur 
(qui correspond à l’ordre d'insertion 
des disquettes dans le ou les lecteurs) 
pour déterminer le volume. Si AO + 
28 est négatif, la routine utilise le 
nom du volume, dont l’adresse est 
dans AO + 18 (c'est le cas de notre 
programme). Si AO + 28 est égal à 
0, la routine utilise le numéro de ré- 
_—. de la disquette, situé en A0 
+ : 


Informations retournées 
par INFOVOL 


Les informations sont retournées 
dans le même tampon que celui qui 
nous à servi pour l'appel de la rou- 
tine. Nous y trouvons : 


16(A0) : un code d'erreur sur deux 
octets. Cette zone est à zéro si tout 
c'est bien passé. 

18(A0) : l'adresse (4 octets) du nom 
du volume. 

22(A0) : le numéro de référence de 
la disquette (2 octets). 

30(A0) : la date et l'heure de créa- 
tion du volume, sous la forme de 4 
octets contenant le nombre de se- 
condes écoulées depuis le ler janvier 
1904 à 12H00 ! 

34(A0) : la même chose, mais cette 
fois pour la date et l'heure de la der- 
nière modification. 

38(A0): un indicateur sur deux 
octets. Si le bit 15 (poids fort) est à 
1, la disquette est protégée par logi- 
ciel. Si le bit 7 est à 1, la protection 
mécanique contre l'écriture est utili- 


sée. 
40(A0): nombre de fichiers sur la 
disquette (2 octets). 


42(A0): premier bloc du catalogue 
(2 octets). 

44(A0): nombre de blocs de 512 
octets dans le catalogue (2 octets). 
46(A0) : nombre de blocs sur la dis- 
quette (ne comprend pas les blocs 


du catalogue) sur 2 octets. 

48(A0): nombre d'octets par bloc 
(sauf pour les blocs du catalogue) sur 
4 octets. 

52(A0): nombre minimum d’'octets 
successifs pour que le système alloue 
un bloc à un fichier (4 octets). 
56(A0) : premier bloc alloué à un fi- 
chier (2 octets). 

58(A0): premier numéro de fichier 
disponible (4 octets). 

62(A0) : nombre de blocs non utili- 
sés. 


Lorsque nous retournons au Basic, 
l'exploitation de ces données ne po- 
sent pas de problème puisque le 
tampon TABLE de la routine en lan- 
gage machine se trouve en fait au 
début du tableau de variables C, qui 
contient aussi le tampon NOM et la 
routine en langage machine. 


Notre programme Basic doit exploiter 
des valeurs non signées retournées 
par une routine en langage machine; 
il faut donc prendre quelques pré- 
cautions. En effet, les valeurs conte- 
nues par des variables entières sont 
exprimées en complément à deux et 
peuvent être à l’origine d'erreurs lors 
du calcul, par exemple, d’une don- 
née ou adresse sur 32 bits, si une va- 
riable entière contient un nombre su- 


périeur à $7FFF (32767), donc 
négatif. 

À une expression du type : 

VALEUR! = AIN) *x 65536 
+A%(N+1) 

on préférera : 


A! = VARPTR(A%(N)) 

VALEUR! = PEEK(A!) x 16777216 
+  PEEK(A! + 1) «x 65536 
+PEEK(A! + 2) x 256 + PEEK(A! 
+ 3) 


Lecture des informations sur 
les fichiers 


Grâce au travail effectué par la rou- 
tine INFOVOL, l'obtention des infor- 
mations sur les fichiers va être gran- 
dement simplifiée. 


Le tampon TABLE contient, depuis 
l'appel de la routine INFOVOL, le 
numéro de référence de la disquette 
(1 pour le lecteur interne, 2 pour le 
lecteur externe) dans AO + 22: nous 
n'avons donc pas à nous soucier de 
ce paramètre. Le seul paramètre à 
passer à la routine en assembleur FI- 
CHIERS est le numéro du fichier. 
compris entre 1 et N, où N est la va- 
leur retournée dans AO + 40 par la 
routine INFOVOL. Après avoir dé- 
placé N depuis la pile vers AO + 28. 
et placé dans A0 + 18 l'adresse à 
laquelle sera reporté le nom du fi- 
chier, nous appelons la routine qui 
permet d'obtenir les informations sur 
les fichiers (que nous baptisons IN- 
FOFICH) avec le code illégal $AOOC. 








41 


42 


Pour la routine INFOFICH, il faut 
dans : 


18(A0) : l'adresse (4 octets) du tam- 
pon destiné au stockage du nom de 
fichier, précédé du nombre de carac- 
tères dans le nom. 

22(A0) : le numéro (2 octets) de ré- 
férence du volume sur lequel se 
trouve le fichier (1 pour le lecteur in- 
terne, 2 pour le lecteur externe). 
28(A0) : le numéro (2 octets) du fi- 
chier concerné. 


Comme pour la routine précédente, 
il existe plusieurs possibilités pour in- 
diquer à la routine INFOFICH le fi- 
chier à traiter : 

Si AO + 28 est positif, la routine re- 
tourne les informations sur le fichier 
correspondant au nombre positif. Si 
AO + 28 est égal ou inférieur à zéro, 
la routine retourne les informations 
sur le fichier dont le nom (précédé 


Disquette Pom's 


Protection logicielle : Non 
Protection matérielle : Non 


Nombre de fichiers sur la disquette : 


Premier bloc du catalogue : 


Nombre de blocs dans le catalogue : 


Nombre de blocs sur la disquette : 
Nombre d'octets par bloc : 


Nombre minimum d'octets successifs : 


Premier bloc alloué : 


d'un octets indiquant le nombre de 
caractères de ce nom) est pointé par 
le contenu (4 octets) de AÜ + 18. Si 
deux fichiers situés sur des volumes 
différents portent le même nom, les 
informations retournées correspon- 
dent au fichier placé sur le volume 
spécifié par AO + 22. 


Informations retournées 
par INFOFICH 


32(A0): quatre caractères ASCII 
pour le type de fichier. 

36(A0): quatre caractères ASCII 
pour une abréviation du nom de 
l'auteur ou du programme qui a gé- 
néré le fichier. 

40(A0): drapeaux (2 octets). Si le 
bit 15 est à 1, le fichier est protégé. 
Si le bit 14 est à 1, l'icône est invisi- 
ble. Si le bit 13 est à 1, le fichier re- 
proupe plusieurs ”’sous-fichiers”. Si le 
bit 12 est à 1, le fichier est un ‘”fi- 


Imprimante Fo 
/lorun 


chier système”. 

42(A0): quatre octets contenant la 
position de l'icône dans sa fenêtre. 
Les deux octets de poids fort 
contiennent la position horizontale, 
les deux octets de poids faible la po- 
sition verticale. 

46(A0) : deux octets pour la fenêtre 
où apparaît l'icône. Si AO + 46 est 
égal à —3, l'icône apparaît dans la 
fenêtre de la corbeille. Si AO + 46 
est égal à —2, l'icône apparaît sur le 
bureau. Si AO + 46 est égal à O, 
l'icône apparaît dans la fenêtre du 
volume. Si AO + 46 est supérieur à 
0, l'icône apparaît dans la fenêtre 
d'un dossier. 

48(A0): numéro du fichier sur 2 
octets. Il s’agit du numéro réel, qui 
ne correspond pas forcément à celui 
placé dans AO + 28 avant l'appel de 
la routine. 

52(A0) : premier bloc pour la partie 


Fichier numéro : 

Premier bloc de données : 
Longueur logique ‘données’: __ 
Longueur physique ‘données: __ 
Premier bloc ‘ressource: 
Longueur logique ‘ressource’: __ 
Longueur physique ‘ressource: _ 


Icône invisible 
Système 


Premier numéro de fichier disponible : 


Nombre de blocs libres : 
Nombre d'octets libres : 
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données” du fichier (2 octets). 
54(A0) : longueur logique en octets 
pour la partie ‘’données” (4 octets). 
58(A0): longueur physique en 
octets pour la partie “données” (4 
octets). 

62(A0) : premier bloc pour la partie 
ressource” du fichier. 

64(A0) : longueur logique en octets 
pour la partie “ressource” (4 octets). 
68(A0): longueur physique en 
octets pour la partie “ressource” (4 
octets). 

72(A0): date et heure de création 
sous la forme de 32 bits indiquant le 
nombre de secondes écoulées depuis 
le premier janvier 1904 à 12H00. 
76(A0) : identique à AO + 72, mais 
pour la dernière modification. 


Avant de conclure. il faut dire quel- 
ques mots sur la méthode employée 
pour supprimer les menus. Le Basic 
Microsoft ne permet pas la suppres- 
sion pure et simple d'un menu, il est 
seulement possible de les masquer. 
La méthode n'est pas très élégante, 
prend beaucoup de place et ne per- 
met pas de supprimer le menu 
Pomme”, qui est fort gênant car les 
accessoires de bureau qu'il permet 
d'appeler masquent les fenêtres du 
Basic, qui ne sont pas remises à jour 
à la fermeture des accessoires. Notre 
programme utilise deux routines. La 
première, que l'on appelle avec 
$A936, supprime le menu dont le 
numéro se trouve au sommet de la 
pile, sur deux octets. Le numéro 


d'un menu est celui que l’on utilise- 
rait en Basic moins 1 (Le menu 
Pomme” porte le numéro 1). La se- 
conde routine, $A937, réaffiche la 
barre des menus dans sa nouvelle 
configuration. 


Nous savons maintenant lire, depuis 
le Basic et avec l'aide de quelques 
routines, les indications situées sur 
une disquette. Nous verrons prochai- 
nement qu'il est aussi possible de 
modifier les informations, ce qui nous 
permettra de lire depuis le Basic le 
contenu de certains fichiers comme, 
par exemple, les polices de caractè- 
res. 


—————————————— "TT 


Source des routines en langage machine 


incorporées au programme Basic 


REM *#XCAT ALOGUE *2% 


WINDOW CLOSE 1:WIDTH 255.O0N ERROR GOTO Erreur 
DEFINT A-ZDIM C(127),P(1),T(217),C$(17)POKE &H2F8,0 


*256+PEEK(AI-N+3) 


DEF FNV32I(AI N)=PEEK(AIN)*2"24+PEEK (AI N+ 1 )#2716+PEEK (AI+N+2) 


DSK$="Disquette "PL$="Protection logicielle : ” 


PM$="Protection matérielle : “:NF$="Nombre de fichiers sur la disquette 
PBC$="Premier bloc du catalogue :":NBC$="Nombre de blocs dans le catalogue 





TABLE DSL 21 : 
NOM DSL 16 NBD$="Nombre de blocs sur la disquette :” 
NOB$="Nombre d'octets par bloc :" 
3 456 0000 VOLUME LINK A6,*0 NMO$="Nombre minimum d'octets successifs :”’:PBA$="Premier bloc alloué :” 
. sou FF66 or Her PNF$="Premier numéro de fichier disponible :" 
6 7014 MOVEQ #20,D0 NBL$="Nombre de blocs libres :":NOL$="Nombre d'octets libres :" 
7 4299 BINIT  CLRL (AIX O$="Oui”:N$="Non” | | 
8 51C8 FFFC DBRA DO,BINIT U9$="*rræsresse | jpf- rreseses jf ess ss of ess 
9 4SFA FFAC LEA NOM, A2 C$(1)="0040003600040000000000000002000000000800000300000000 
10 214A 0012 MOVEL  A2,18(A0) C$(2)=" 1000000 18000000030000000C000000060000000A0000000C000 
11 226E 0008 MOVEAL 8(A6),A1 C$(3)="0000A000000 1 400000004000000 1 40000000A000000 40000000 M 
12 149 0001 MOVEB I(A1),(A2)+ C$(4)="A000000 1 40000000A0 1FF00 1 4000000090€00F02400000008B0000 
13 2429 0001 MOVEL 1(A1),D2 C$(5)="E440000000460000 1 880000000230000050000000F 200000030000 MM 


14 0282 OOFF FFFF ANDIL  *$OOFFFFFF,D2| C$(6)="0030B000000 1000000408800000080000083E000 IFC040000 104 





2642 RS Re C$(7)=" 1000C0 1 820000 10838000000200002 1 044003FF0 100002008201 
SA Not MOvEs Ga apx  [C$(8)-"FSAE100002010F023DE 1 1000010210801FC0 10000 1002080303 
18 -Sico rrc DBRA  DI.BNOM C$(9)="0100000804040C00€ 100000404441 0002 10000 1 A00442000 1 10 
19 5368 001€ suBa  =1.28(40) | C$(10)="0006300242000 1 20000B3803840000A000 1 30402040000C000 
20 A007 pc $A007 C$(11)="386C06040000FFE0506C07040000FC 1843080F820001F00458B1 
21 SE UNLK C$(12)="O1FF2000 1C00298403FFF00038002C 1 BODFFFCOOF 000 1E6038FF 
22 4E7S RTS C$(13)="FFFFEOOOSFFFFFFFFFFFOSFFF000000000200200000000000040 
C$(14)="02000000000000800 1000000000000800 1 000000000000840 1 0 
23 456 0000 FICHIERS LINK C$(15)="0000000000 1 288 100000000000 1 491 100000000000 1 4922000 
24 4IFA FF26 LEA C$(16)-"00000000 1 4922000000000000C9220000000000004924000000 
25 316E 0008 001C MOVE C$(17)="000000492400000000000029380000000000000480000 
26 4SFA FF70 LEA FOR 1=1 TO 17:C$(0)=C$(0)+C$(I).NEXT 
27 2149 0012 MOVE.L 
28 AOC se K REM initialisation des variables (pour éviter les ‘mouvements de mémoire”) 
29: : 1=0:J-0:K=0:P<0:N-0:DR=0X=0:Y=0:V=N 
30 475 RTS DR : . 
VOL=74; Point d'entrée dans le tableau pour la routine “Volume 
31 456 0000 MENU LINK FIL=106: Point d'entrée pour la routine "Fichiers" 
32 3F2E 0008 MOVE MEN=120:Point d'entrée pour la routine “Menu” 
33 A936 DC 
34 A937 DC Al=VARPTR (T(0)}J=1 
35 4E5E UNLK A6 FOR i=0 TO 435.POKE Ai+i, VAL ("&H"+MID$ (C$(O),J,2)).J=J+2.NEXT 
36 4E7S RTS ERASE C$ 
EE " 
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Len 
© 
c 
An 
E 
©] 
a 


PRINT NMO$ TAB(34) USING U6$,FNV321(A1,52) 
PRINT PBA$ TAB(34) USING U6$.C(28) 

PRINT PNF$ TAB(34) USING U6$,FNV32I(AI,58) 
PRINT NBL$ TAB(34) USING U6$,C(31) 

PRINT NOL$ TAB(31) USING U9$,C(31)#1024 


RETURN 


REM Sous-programme pour barre des menus 


Tmenu 
MENU 


IF MENU(1)=1 THEN DR=-1:MENU 5,1,2:MENU 5,2,1 BUTTON 
1,1, "Impression", (5,260)-(95,280), 1 
IF MENU(1)=2 THEN DR=OMENU 5,2,2 MENU 5,1,! BUTTON 


1,1, "Fichiers", (5,260)-(95,280),1 
RETURN 


À propos de l’article ”’Personna- 
lisez vos disquettes Macintosh” 
(Pom's 16) 


Le programme permettant de consti- 
tuer un fichier ”’StartupScreen”, mis 
au point avec la version 1 du Basic 
Microsoft, ne fonctionne pas avec la 
version 2. Pour remédier à cela, il 
convient de remplacer : 


280 FOR J = 1 TO M: PRINT #2, 


CHR$ (A() / 256) ; CHR$ (AU) 
AND &HFF) ;:: NEXT: NEXT: 
CLOSE : PRINT ‘Conversion effec- 
tuée.” : GOTO 300 


REM Sous-programme pour affichage type et auteur du fichier par : 

Type 280 AD = 0: A! = VARPTR (A(1)) : 
FOR j=32+P TO 35+PK=PEEK(AÏ+j}IF K>31 AND K<126 THEN PRINT FOR AD = 0 to 63: PRINT #2, 
CHR$(K), ELSE PRINT ‘*; CHR$ (PEEK (A! + AD)) ; : NEXT : 
NEXT NEXT : CLOSE : PRINT ”Conver- 

RETURN sion effectuée.” : GOTO 300 

Æ 

Erreur 





OPEN ‘LPTI" FOR OUTPUT AS | RESUME Serr 


Fin 
WINDOW CLOSE ! MENU RESET END 
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54, rue de Dunkerque 
75009 PARIS Tél.: 282.17.09 
Métro: Gare du Nord (100 m) 


Diskettes U.S 5”1/4 SF/SD 
Diskettes 5”1/4 SF/DD 
Lecteur diskettes pour APPLE 
(mécan. Japonais, entr. direct) 
Carte synthétiseur de voix 

Carte mémoire/langage 16 K Ram 
Carte mémoire 128 K 

Carte drive 13/16 sect. 

Carte 80 colonnes 

Carte imprimante parallèle 
Carte imprimante + Buffer 32 K 
Carte série 

Carte super série 

Carte Z80 - CP/M 

Joystick de luxe 2 +, 2E, 2C 


SURPRIS .… LES PRIX!!! 


PRIX T.T.C.! POUR APPLE ET COMPATIBLES 


139 F/boîte 10 (exp. min. 5 boîtes Port 27 F) 
170 F/boîte 10 (exp. min. 5 boîtes Port 27 F) 


Carte wilcard (déplombage) 
Carte communication 

Carte IEEE - 488 

Carte copieur Eprom 

Carte A/D - D/A 12 bit 
Carte horloge 

Carte musique 

Carte RGB + Prise TV Secam 
Carte 6522 Via 

Port pour une carte 

Ventilo 10 W. super silencieux 





Port Urgent ajouter 5,50 F 


NOUVEAU: Pince spéciale pour diskettes (100 000 trous min.) (port : 13 F) 69 F 
Ordinateur multicompatible Forth, Basic, CP/M, MS-Dos, CP/M86 


Écrivez, nous vous enverrons une liste plus complète de nos articles. Revendeurs, contactez-nous. 


Notre devise : ‘DYNAMIT COMPUTER: MOINS CHER QUE MOI TU MEURS !”” 
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BSAVE et BLOAD avec le Basic Microsoft 


Par rapport au Basic Applesoft, le 
Basic Microsoft (surtout la version 2) 
offre une gamme d'instructions extré- 
mement étendue. Malheureusement, 
il manque deux commandes du 
DOS : BLOAD et BSAVE. Ces der- 
nières sont très pratiques lorsqu'il 
s'agit de sauvegarder ou charger ra- 
pidement des fichiers binaires qui 
peuvent être, par exemple, des don- 
nées graphiques, des tableaux de va- 
fables ou encore des tables de réfé- 
rences employées pour des fichiers à 
accès direct. 


Nous nous sommes donc honteuse- 
ment inspiré du DOS de l'Apple II 
pour créer un petit utilitaire propre à 
exécuter ces tâches. Un gros avan- 
tage par rapport à l'Apple Il: la vi- 
tesse de transfert mémoire vers dis- 
quette ou disquette vers mémoire est 
d'environ 15 Ko par seconde, ce qui 
est nettement plus performant que 
sur un Apple II, même avec un DOS 
rapide. 


Mode d’emploi 


Le programme Basic (qui fonctionne 
avec les deux versions du Basic Mi- 
crosoft) proposé avec cet article n’est 
qu'un exemple destiné à visualiser le 
passage de paramètres aux routines. 
Ce mode d'emploi est donc celui des 
routines proprement dites. 


Implantation des routines 
dans vos programmes 


Si vous pensez utiliser ces routines 
dans de nombreux programmes, 
vous avez tout intérêt à en faire un 
sous-programme MERGEable, si pos- 
sible en utilisant la possibilité de faire 
des sous-programmes à variables lo- 
cales que nous offre la nouvelle ver- 
sion du Basic Microsoft. Cette mé- 
thode héritée du Pascal permet de 
ne pas se soucier d'une éventuelle 
interaction entre le programme prin- 
cipal et le ou les sous-programmes. 


Dans le programme exemple, les 
codes héxadécimaux correspondants 
à la routine en langage machine ap- 
paraissent sous forme de chaînes de 
caractères car cela prend beaucoup 
moins de place que les traditionnels 
DATAs. Nous avons placé ces codes 
dans onze chaînes différentes afin 
d'améliorer la lisibilité du programme 
mais, dans vos programmes, vous 
pouvez mettre tous les codes dans 
seulement deux chaînes, ce qui ré- 
duira encore la place occupée par la 
routine. 


La routine ’BSAVE” 


Cette routine sauvegarde sur dis- 
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quette une zone de mémoire de N 
octets à partir de l'adresse A. 


Le point d'entrée de la routine se 
situe dans le 85ème élément du ta- 
bleau de variables entières dans le- 
quel vous placez la routine. Ainsi, si 
le tableau de variables est baptisé 
C%, VARPTR(C%(84)) retourne 
l'adresse à utiliser pour l’appel de la 
routine (avec OPTION BASE 1, il 
faudrait prendre 85 au lieu de 84). 
La syntaxe en est : 


CALL BSAVE! (AF!I, D%, AT! N! 
avec la première version du Basic 
Microsoft; 

BSAVE! AF!, D%, AT!, N! avec la 
version actuelle. 


BSAVE!, ou tout autre nom de va- 
riable en simple précision, contient 
l'adresse du point d'entrée dans la 
routine. 


AF! représente une variable en sim- 
ple précision qui contient l'adresse 
du descripteur de la chaîne conte- 
nant le nom du fichier. Dans la prati- 
que, le plus simple est de placer l’ex- 
pression  VARPTR(F$) (où F$ 
contient le nom du fichier) dans le 
CALL. 


D% représente une variable entière 
contenant le numéro du lecteur: 1 
pour interne, 2 pour externe. On 
peut aussi placer le numéro ‘en 
clair” dans le CALL. 


AT! représente une variable en sim- 
ple précision contenant l’adresse de 
base du tampon de mémoire à sau- 
vegarder. Pour la sauvegarde d'un 
tableau de variables numériques, on 
peut placer dans le CALL l’expres- 
sion VARPTR(X(Y)). Il est aussi pos- 
sible de placer l'adresse ‘en clair” 
dans le CALL, à condition que cette 
adresse soit supérieure à 32767 
($7FFF). Si l’on indique une adresse 
inférieure de cette façon, le CALL 
empilera seulement deux octets et, 
comme notre routine s'attend à trou- 
ver quatre octets dans la pile, il y a 
peu de chances pour que tout se 
passe bien. 


N! représente une variable en simple 
précision contenant le nombre d’oc- 
tets à sauvegarder. Il est aussi possi- 
ble d'indiquer le nombre d’octets ‘’en 
clair”, avec les même réserves que 
pour AT!. 


Le premier élément du tableau de 
variables entières où se trouve la 
routine en langage machine est utilisé 
pour retourner un code correspon- 
dant à une erreur éventuelle. Si ce 
mot de 16 bits contient une valeur 
nulle au retour de la routine, cela in- 
dique que tout s’est bien passé. Dans 
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le cas contraire, un problème est sur- 
venu. Voici les codes possibles et 
leur signification : 


—33 : le catalogue des fichiers est sa- 
turé. 

—34 : la disquette est saturée. 

—35: le volume indiqué n'existe 
pas. 

—36 : erreur d’entrées/sorties. 

—37 : nom de fichier incorrect. 
—44: la protection mécanique 
contre l'écriture est en place. 

—46 : le volume est protégé par logi- 
ciel (voir ‘Catalogue sur impri- 
mante”). 

—48 : un fichier portant le nom du 
fichier indiqué existe déjà. 

—56 : numéro de lecteur incorrect. 


La routine refuse ‘’d’écraser”’ un fi- 
chier existant portant le même nom 
que celui indiqué, et retourne le code 
—48 dans le premier élément du ta- 
bleau de variables. Si vous voulez 


outrepasser cette protection, vous 
pouvez écrire votre programme 
ainsi : 


100 BSAVE! = VARPTR (C(84)) 
110 CALL BSAVE! (VARPTR(FS), 
1, AT!, N!) 

120 IF C(0) = —-48 THEN KILL F$ : 
GOTO 110 


La routine ”’BLOAD” 


Cette routine charge en mémoire les 
N octets contenus par le fichier F, à 
partir de l’adresse A. 


Le point d'entrée de la routine se 
situe dans le 156ème élément du ta- 
bleau de variables entières. La sun- 
taxe de cette routine est : 


CALL BLOAD! (AF!, D%, AT!) avec 
la première version du Basic Micro- 


soft; 
BLOAD! AF!, D%, AT! avec la ver- 
sion actuelle. 


Les paramètres sont les mêmes que 
pour la routine BSAVE, mis à part le 
nombre d’octets, qui a ici disparu car 
il est déterminé automatiquement par 
la routine. Au retour de cette routine, 
le premier élément du tableau 
contient aussi un code d'erreur : 
—35: le volume indiqué n'existe 
pas. 

—36 : erreur d’entrées/sorties. 

—37 : nom de fichier incorrect. 

—43 : fichier introuvable. 

—56 : numéro de lecteur incorrect. 


Fonctionnement des 
routines 


Les deux utilitaires emploient des 
zones communes : le tampon de 80 
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48 


octets TABLE. indispensable aux 
routires d'entrées/sorties du Macin- 
tosh: le tampon de 60 octets NOM. 
qui recevra le nom du fichier à trai- 
ter: la sous-routine RETOUR qui, 
comme son nom l'indique, sera utili- 
sée pour le retour au Basic, après 
avoir passé un code d'erreur éven- 
tuel dans le premier élément du ta- 
bleau de variables qui reçoit les routi- 
nes; enfin, la sous-routine 
INITTABLE, qui vide le tampon 
TABLE à chaque appel de l’une ou 
l'autre des routines. 


Plutôt que d'analyser le source des 
routines ligne par ligne, ce qui ferait 
double emploi avec les explications 
du programme Catalogue” publié 
dans ce numéro, nous vous propo- 
sons d'étudier les routines ”’systè- 
mes” mises en oeuvre pour arriver à 
nos fins. Comme pour toutes les rou- 
tines ayant un rapport avec les en- 
trées/sorties, le registre d'adresse A0 
doit pointer sur l'adresse de base 
d'un tampon où doivent se trouver 
les paramètres à passer à la routine. 
Chacune de ces routines retournent 
aussi un code d'erreur dans les deux 
octets de poids faible de DO. 


Création d’un fichier : $A008 


Les paramètres à placer dans le tam- 
pon pointé par AO sont : 


18(A0) : l'adresse de l’octet conte- 
nant le nombre de caractères dans le 
nom du fichier, suivi par les caractè- 
res eux-mêmes. 

22(A0) : numéro du lecteur (1 pour 
le lecteur interne, 2 pour le lecteur 
externe). 


Si, au retour de la routine, AO + 16 
est différent de zéro, une erreur est 
survenue; son code est retourné dans 
les deux octets de poids faible du re- 
gistre de données DO. 


Mise en place d'informations : 
$A00D 


Nous utilisons cette routine pour pla- 
cer la chaîne ‘TEXT” dans la zone 
du catalogue affectée au type de fi- 
chier. Ceci permettra d'utiliser les fi- 
chiers créés depuis d’autres program- 
mes d'application comme, par 
exemple, MacWrite. Cette routine est 
généralement utilisée après la routine 
qui permet de lire les informations 
sur les fichiers ($AO0C, voir l'article 
Catalogue” dans ce numéro). Cette 
routine place dans le tampon les in- 
formations déjà présentes dans le ca- 
talogue: il suffit de les modifier avant 
d'appeler la routine $AOOD. 


16(A0) : erreur si différent de zéro 
(au retour). 

18(A0) : adresse du nom de fichier. 
22(A0) : numéro du lecteur. 
32(A0): quatre caractères ASCII 
pour fixer le type de fichier. 
36(A0): quatre caractères ASCII 









% Basic Pascal 

























Sur la disquette Macintosh 
numéro 1 


vous trouverez les programmes Basic : 
e Editeur : permet l'édition de formes (dessins) ou curseurs 

à l'écran, dans le but de les réutiliser depuis 
d'autres programmes Basic. 
transmissionde fichiers texte entre un Macintosh 
et un Apple || 
e Paint/Basic : Récupération de document MacPaint pour les 
utiliser depuis un programme Basic. 
Récupération d'un document MacPaint pour en 
faire une image qui sera visualisée lors de 
l'insertion de vos disquettes dans le lecteur du 
Macintosh 

programmes “exemples” employés pour 
l'illustration des articles publiés dans les 
numéros 15 et lb de Pom's. 


e Mac/Applell: 


e Paint/Start : 


e et d'autres 






Les polices de Caractères : 
& Los angeles 24 et 12 points 
D EJRÊS «caro 

« Mos Cisieu 20 à 12 posts 
e Hollywood (&r. ) 

+ Manhattan QE ] CE] 


et les programmes : 
e LOCALIZER : configuration du clavier AZERTY pour la France 
(ou un autre pays). 
e Copie de disque : pour effectuer des copies de disquettes avec 
un seul lecteur sur un Macintosh 128Ko, en seulement quatre 
passages. 


ToAs se 18 DISC 8000 49 
BLOC NO [F0 ÇA (ce qui, en gros, 


veut dire “150,00 F TTC franco, bon de commande page 74°) 






Hu TE LE 
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pour fixer une abréviation du nom 
de l’auteur ou du programme qui a 
généré le fichier. 

40(A0) : (2 octets). Si le bit 15 est à 
1. le fichier sera protégé. Si le bit 14 
est à 1, l'icône sera invisible. Si le bit 
13 est à 1. le fichier sera sensé re- 
grouper plusieurs ‘’sous-fichiers”. Si 
le bit 12 est à 1, le fichier sera un 
"fichier système”. 

42(A0): quatre octets contenant la 
position de l'icône dans sa fenêtre. 
Les deux octets de poids fort 
contiennent la position horizontale, 
les deux octets de poids faible la po- 
sition verticale. 

46(A0) : deux octets pour la fenêtre 
où apparaît l'icône. Si AO + 46 est 
égal à —3, l'icône apparaîtra dans la 
fenêtre de la corbeille. Si AO + 46 
est égal à —2, l'icône apparaîtra sur 
le bureau. Si AO + 46 est égal à 0, 
l'icône apparaîtra dans la fenêtre du 
volume. Si AO + 46 est supérieur à 
0, l'icône apparaîtra dans la fenêtre 
d'un dossier. 


Cette routine ne permet pas de mo- 
difier les dates et heures, ainsi que 
les informations sur la position et le 
nombre d’octets occupés par les fi- 
chiers. 


Ouverture d’un fichier : $A000 


Cette routine ne donne accès qu’à la 
partie données” d'un fichier. Pour 
la partie “ressource”, il faut utiliser 
une autre routine, dont le fonction- 


nement est similaire, mais dont le 
code est $AUOA. 


Paramètres passés et retournés par la 
routine : 


16(A0) : erreur si différent de O (au 
retour). 

18(A0) : adresse pointant sur le nom 
du fichier. 

22(A0) : numéro du lecteur. 
24(A0): deux octets indiquant un 
numéro d'accès (au retour). 

27(A0) : indicateur sur un octet. Si 
le contenu de l’octet est égal à 3, les 
lectures et écritures seront autorisées. 
Pour 2, seules les écritures seront ad- 
mises. Pour 1, lectures seulement. Si 
le contenu est nul, les autorisations 
en cours sont conservées. 

28(A0) : adresse (4 octets) d'un tam- 
pon de mémoire de 522 octets utilisé 
pour l'accès au fichier. Si AO + 28 
contient une valeur nulle, le tampon 
de mémoire réservé au volume sera 
employé (c'est la solution retenue 
pour nos routines). 


Ecriture sur un fichier : $A003 


16(A0) : erreur si différent de O (au 
retour). 

24(A0): numéro d'accès au fichier 
(retourné précédemment par la rou- 
tine d'ouverture). 

32(A0) : adresse de base du tampon 
de mémoire à transférer vers le fi- 
chier. 

36(A0) : nombre (32 bits) d'octets à 
transférer vers le fichier. 


Lecture d’un fichier : $A002 


16(A0) : erreur si différent de O0 (au 
retour). 

24(A0): numéro d'accès au fichier 
(retourné précédemment par la rou- 
tine d'ouverture). 

32(A0) : adresse de base du tampon 
de mémoire où devront être stockés 
les octets lus. 

36(A0) : nombre (32 bits) d'octets à 
lire depuis le fichier. 


Fermeture d’un fichier : $A001 


16(A0) : erreur si différent de O (au 
retour). 
24(A0) : numéro d'accès au fichier. 


Mise à jour du catalogue de 
la disquette : $A013 


Il faut absolument appeler cette rou- 
tine, qui ne requiert pas de paramè- 
tres, lorsque l’on vient de créer un fi- 
chier, pour mettre à jour le catalogue 
de la disquette. Si cela n'est pas fait, 
on risque de ne pas retrouver le nou- 
veau fichier. 


Nous venons de faire connaissance 
avec quelques routines du DOS du 
Macintosh. Elles offrent d'autres pos- 
sibilités que nous n'avons pas citées 
ici; le peu de pratique que nous en 
avons ne nous permet pas d’en par- 
ler sans dire de grosses bêtises. Il en 
va de même pour d’autres routines, 
mais gageons que nous n’en reste- 
rons pas là... : ï 





10 Exemple d'utilisation des routines 
"BSAVE” et "BLOAD” 
20° 
30 DEFINT A-Z 
40 DIM C(211),C$(11),D(3382),P(3),R(3) 
50 C$(1)="544558544€713140FFFE4ESE4E 7522487 
013429951C8FFFC4E7S 
60 C$(2)="4E56000041FAFF546 1EA4SF AFF 9E214A0 
012226E001214E90001 
70 C$(3)="24290001028200FFFFFF2642723A 1 4DB5 
ICOFFFC316E00100016 
80 C$(4)="A008322800 1066B0A00C322800 1066A8 
43FAFFA021510020A09D 
90 C$(5)="32280010669842A8001CA000322800 10 
668C216E000C0020216E 
100 C$(6)="000800244268002C42A8002EA003322 
800106600FF 7040013228 
110 C$(7)="00 106600FF66A0 1 34EF AFF604E 560000 
A1FAFECB4EBAFFSCA45FA 
120 C$(8)="FF 1021 4A0012226E000E 1 49000 1 242 
90001028200FFFFFF2642 
130 C$(9)="723A14DB5 1C9FFFC316E000C00 1642A 
8001CA000322800 106600 
140 C$(10)="FF 1CAO0C322800 106600FF 12216E00 
080020216800360024 
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150 C$(11)="4268002C42A8002EA0023228001066 
OOFEF4A00 1 4EF AFEEE 

160 FOR 1=1 TO 11:c$(0)=C$(0)+CS$(I):NEXT 

170 J=1:AI=VARPTR (C(71)) 

180 FOR 1=0 TO 281:POKE Ai+i,VAL("&H"+MID$ 
(C$(O),J,2)):J=J+2:NEXT 

190 ERASE C$ 

200 CALL TEXTFONT (0) 

210 SAV=84 

220 LOA=155 

230 F$="XYZ" 

240 R(1)=10:R(3)=330 

250 FOR Y=10 TO 162 STEP 8 

260 RANDOMIZE TIMER:AI=VARPTR (P(0)) 

270 FOR 1=0 TO 7:POKE Al+|,INT (RND*256).NEXT 

280 R(O)=Y R(2)=Y+8 

290 CALL FILLRECT (VARPTR (R(O)), 
VARPTR (P(0))) 

300 NEXT 

310 LINE(10,10)-(330,170),,B 

320 GET(10,10)-(330,170),D 

330 CALL MOVETO(10,200) 

340 PRINT “Appuyez sur une touche pour 
sauvegarder l'image... 

350 WHILE INKEY$ ="" WEND CLS 
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360 N1=6766 BSAVEI=VARPTR (C(SAV)) 420 WHILE INKEY$ ="""WEND CLS 








370 CALL BSAVEKUVARPTR(F$) 1, VARPTR (D(O)),Ni) 430 ELOADI=VARPTR (C(LOA)) 
380 IF C(0) THEN PRINT ‘Erreur l” 440 CALL BLOADKVARPTR (F$),1,VARPTR (D(0))) 
WHILE INKEY$ =""WEND END 450 IF C(0) THEN PRINT ‘Erreur |": 
390 ERASE DDIM D(3382).CLS WHILE INKEY$ ="":WEND END 
400 CALL MOVETO(10,200) 460 PUT(10,10),D 
410 PRINT “Appuyez sur une touche pour recharger 470 WHILE INKEY$ =""WEND CLS KILL "XYZ": 
l'image... GOTO 250 
Source des routines "BSAVE” et "BLOAD” 40 3228 0010 MOVE 16(A0),D1 
41 6680 BNES RETOUR 
; Segment commun aux deux routines 42 216E O00C 0020 MOVE.L 12(A6),32(A0) 
43 216E 0008 0024 MOVEL  8(A6),36(A0) 
1 0000 ERREUR DC 0 44 4268 002€ CLR 44(A0) 
2 TABLE DS.L 20 45 42A8 002€ CLRL 46(A0) 
3 NOM DS.L 15 46 A003 DC $A003 
4 5445 5854 TYPE DC.L $54455854 47 3228 0010 MOVE 16(A0),D1 
48 6600 FF70 BNE RETOUR 
5 3140 FFFE RETOUR MOVE DO,-2(A0) 49 A00! DC $AOO! 
6 4SE UNLK A6 50 3228 0010 MOVE 16(A0),D1 
7 475 RTS Si 6600 FF66 BNE RETOUR 
52 AO13 DC $A013 
8 2248 INITTABLE MOVEAL AOAI 53 AFFA FF60 BRA RETOUR 
9 7013 MOVEQ  #19,D0 
10 4299 BINIT CLR (AT)+ : Routine *BLOAD” 
11 SiC8 FFFC DBRA DO,BINIT 
12 475 RTS 54 456 0000 BLOAD LINK A6,*0 
55 4IFA FEC8 LEA TABLE,AO 
; Routine "BSAVE" 56 4EBA FFSC BSR INITTABLE 
13 4ES6 0000 BSAVE LINK A6,*0 57 4SFA FF10 LEA NOM,A2 
14 A4IFA FFS6 LEA TABLE,AO 58 214A 0012 MOVE.L A2,18(A0) 
15 6GIEA BSRS INITT ABLE 59 226E 000€ MOVEAL  14(A6),A! 
60 149 0001 MOVEB  I(A1),(A2)+ 
16 45FA FFAO LEA NOM, A2 61 2429 0001 MOVEL  I(A1),D2 
17 214A 0012 MOVE.L  A2,18(A0) 62 0282 OOFF FFFF ANDIL  #$OOFFFFFF,D2 
18 226E 0012 MOVEAL  18(A6),A1 63 2642 MOVEAL  D2,A3 
19 149 0001 MOVE.B  I(AI),(A2)+ 64 723A MOVEQ #58! 
20 2429 0001 MOVEL  I(AI),D2 65 14DB BNOM2 MOVEB  (A3)+,(A2)+ 
21 0282 OOFF FFFF ANDIL  *S$OOFFFFFF,D2 | 66 51C9 FFFC DBRA D1,BNOM2 
22 2642 MOVEAL  D2,A3 67 316E 000C 0016 MOVE 12(A6),22(A0) 
23 723A MOVEQ *58,DI 68 42A8 O01C CLRL 28(A0) 
24 14DB BNOM MOVE.B  (A3)+,(A2)+ 69 A000 DC $A000 
25 51C9 FFFC DBRA D1,BNOM 70 3228 0010 MOVE 16(A0),D1 
26 316E 0010 0016 MOVE 16(A6),22(A0) | 71 6600 FFIC BNE RETOUR 
27 A008 DC $A008 72 AO0C DC $AOOC 
28 3228 0010 MOVE 16(A0),DI 73 3228 0010 MOVE 16(A0),DI 
29 66B0 BNE.S RETOUR 74 6600 FF12 BNE RETOUR 
30 AO0C DC $AOOC 75 216E 0008 0020 MOVEL  8(A6),32(A0) 
31 3228 0010 MOVE 16(A0),D1 76 2168 0036 0024 MOVEL  S4(AO),36(A0) 
32 66A8 BNE.S RETOUR 77 4268 002C CLR 44(A0) 
33 43FA FFA2 LEA TYPE, AI 78 42A8 002€ CLRL 46(A0) 
34 2151 0020 MOVEL  (A1),32(A0) 79 AO02 DC $A002 
35 A00D DC $A00D 80 3228 0010 MOVE 16(A0),DI 
36 3228 0010 MOVE 16(A0),D1 81 6600 FEF4 BNE RETOUR 
37 66 98 BNE.S RETOUR 82 A00! DC $A001! 
38 42AB 001€ CLRL 28(A0) 83 4EFA FEEE BRA RETOUR 
39 A000 DC $A000 
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Switch vidéo pour carte 80 colonnes 


Eric Pascual 


Ce petit montage électronique 
s'adresse aux possesseurs d’une carte 
80 colonnes pour Apple Il compor- 
tant une sortie vidéo propre. 


Le problème est le suivant : pour vi- 
sualiser l'affichage 80 colonnes, le 
moniteur doit être connecté sur la 
sortie de la carte, et non plus sur 
celle de l'Apple. Pour revenir en 40 
colonnes ou pour afficher une page 
graphique, il faut débrancher le mo- 
niteur et le remettre sur la sortie nor- 
male. Cela devient d'autant plus gé- 
nant si on utilise un système comme 
Pascal, et que l’on y fait du graphi- 
que, car Pascal reconnaît automati- 
quement les cartes 80 colonnes et les 
utilise. 


Une première solution consiste à 
monter un petit interrupteur inver- 
seur qui sert à relier le moniteur à 
lune ou l’autre des sorties vidéo, 
sans avoir à le débrancher. Cela 
existe dans le commerce, tout monté 
pour l'Apple, mais c'est relativement 
cher. De plus, il faut l’actionner à la 
main et donc introduire dans les pro- 
grammes, qui utilisent les deux sor- 
ties, des messages invitant l'utilisateur 
à basculer son inverseur avant de 
continuer. C'est très rapidement 
exaspérant. 


La deuxième solution, objet de cet 
article, est d'avoir un système qui 
puisse être commandé soit manuelle- 
ment, soit directement par pro- 
gramme. Rassurons tout de suite les 
non habitués du fer à souder, le 
montage est très simple. De toute 
manière, on peut le construire et 
l'utiliser sans en connaître le principe. 
Enfin le budget à prévoir ne dépasse 
pas 100 francs dans la version nor- 
male. 


Principe de 
fonctionnement 


La commutation du moniteur sur 
l'une ou l’autre des sorties vidéo se 
fait par l'intermédiaire d'un relais, pi- 
loté par un circuit électronique qui 
permet de le commander soit ma- 
nuellement, soit en utilisant une des 
sorties témoins accessibles sur le 
connecteur de jeux de l'Apple, en 
l'occurrence la sortie TTLO. Un chan- 
gement d'état de cette dernière fera 
basculer le relais dans l’une ou l'au- 
tre des deux positions. 


Le coeur du montage est un circuit 
CD4011 qui contient 4 portes NAND 
en technologie CMOS. Deux de ces 
quatre portes sont câblées de façon à 
former une bascule bistable (de type 
RS pour les connaisseurs). Le fonc- 
tionnement de ce type de bascule est 
le suivant: on dispose de deux en- 
trées et d’une sortie. Si on envoie un 
état O sur l'entrée R (RUN), la sortie 
de la bascule passera à l'état 1. Si on 
envoie un état O sur l’autre entrée S 
(STOP), la bascule reviendra à l’état 
O (j'espère ne pas avoir inversé les 
choses !). 


Le schéma complet du montage est 
donné en figure 1. La bascule est au 
centre du montage (les deux portes 
NAND avec les liaisons entrecroi- 
sées). L'une de ces sorties sert à 
commander le relais via le transistor 
T1, ce dernier amplifiant le courant 
de sortie du CD4011, insuffisant 
pour commander un tel composant. 


À quoi servent les autres compo- 
sants ? Détaillons le montage, en 
commençant par l'entrée. La pre- 
mière des portes du circuit ICI est 
montée en inverseur: ses deux en- 
trées sont reliées, ce qui à pour effet 
de produire un signal de sortie qui 
est la négation du signal d'entrée (on 
pourra le vérifier en se reportant à la 
table de vérité de la fonction NAND). 
L'utilité de cette porte est d'isoler le 
montage du reste de l'Apple. En 
effet, elle présente une très grande 
résistance d'entrée (il s’agit d’un cir- 
cuit CMOS). Ainsi les circuits internes 
de l'ordinateur ne seront pas pertur- 
bés par notre montage. 


Le signal passe ensuite par le 
condensateur C1 qui permet de gé- 
nérer une impulsion à partir d'un 
changement d'état. Cette impulsion 
est celle qu'il faut appliquer à l'entrée 
de la bascule pour la faire changer 
d'état. La résistance R1 permet de 
forcer l'entrée de la bascule, à l'état 
1 en l'absence d'impulsion, et donc 
de lui faire maintenir son état de sor- 
tie constant. 


On constate qu'il y a un deuxième 
chemin pour le signal d'entrée, sy- 
métrique par rapport au précédent. 
C'est tout simplement pour attaquer 
la deuxième entrée de la bascule et 
commander le changement d'état in- 
verse du relais. On inverse donc le 
signal d'entrée pour qu'il produise 
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l'effet inverse. Les interrupteurs 
(poussoirs) SWI1 et SW2 sont les 
commandes manuelles du montage. 
En appuyant sur l’un ou l’autre, on 
envoie une impulsion appropriée à la 
bascule qui changera d'état en fonc- 
tion de l'interrupteur qui aura été uti- 
lisé. 

Dernier point : les diodes D1 et D2 
sont des LEDs (diodes électrolumi- 
nescentes) qui serviront de voyants 
témoins de l'état de la bascule. Elles 
sont facultatives et, si on ne les utilise 
pas, on peut aussi supprimer les ré- 
sistances R5 et R6 (limitatrices du 
courant qui traverse les LEDs), ainsi 
que le transistor TZ et sa résistance 
R4 (qui servait, comme plus haut, à 
obtenir un courant suffisant pour al- 
lumer la LED). 


Montage pratique 


La figure 2 donne un exemple d’im- 
plantation des composants sur un cir- 
cuit imprimé (dont le tracé apparaît 
en transparence). Si on ne dispose 
pas du matériel nécessaire à la 
confection d'un tel circuit, on peut 
plus simplement monter les compo- 
sants sur une plaquette prototype” 
(circuit imprimé percé de trous métal- 
lisés formant un quadrillage) et éta- 
blir les liaisons avec du fil fin isolé 
(attention aux court-circuits). L'au- 
teur a utilisé cette méthode et lors- 
que tout a été bien monté et bien 
vérifié, tout marche parfaitement. 


La figure 3 donne le brochage du 
connecteur de jeux en indiquant les 
connexions, ainsi que le brochage du 
CD 4011 utilisé dans le montage. At- 
tention à la position du repère lors 
de la mise en place, un circuit monté 
à l'envers est un circuit mort lors de 
la mise sous tension ! 


Pour les tests, il suffit d'alimenter le 
montage par une pile de 4,5 volts si 
on ne dispose pas d'alimentation sta- 
bilisée. On reliera le fil d'entrée alter- 
nativement au plus et au moins de la 
pile; on vérifiera ainsi que le relais 
bascule et que les diodes s’allument 
en conséquence. 


Mise en place dans 
l'Apple 


A l'issue d'un test complet, il reste à 
relier tout cela à l'Apple. 

Il est très important, pour ne pas dire 
indispensable, d’éteindre l'ordinateur 
avant de faire ou de défaire un bran- 
chement, sinon … 
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Pour relier nos fils au connecteur de 
jeux, on peut utiliser un connecteur 
16 broches pour fils en nappe, que 
votre marchand de composants se 
fera un plaisir de sertir sur les fils al- 
lant au montage (à Paris, certains 
magasins font cela gratuitement lors- 
qu'on leur achète un connecteur). 
Autre solution, acheter un support de 
circuit intégré 16 broches à wrapper. 
Ces supports ont des broches lon- 
gues et solides qui entrent sans diffi- 
culté dans le connecteur de jeux. 

Il vous suffit alors de souder vos fils 
dans les logements du support rece- 
vant normalement les pattes du CI 
(solution adoptée par l’auteur). Cette 
méthode est tout à fait adaptée s’il y 
a peu de fils à monter (ce qui est le 
cas ici), sinon on préfèrera celle du 
connecteur serti sur du câble en 
nappe. 

Le circuit et ses composants externes 
(poussoirs, LEDs témoins) seront 
montés dans un petit boîtier métalli- 
que pour blinder les connexions 
vidéo. L'ensemble pourra être fixé 
sur le côté de l'Apple. Les liaisons 
vidéo seront obligatoirement en câble 
blindé, et on veillera à relier les blin- 
dages des différents fils, sous peine 
de voir l'écran rempli de parasites 
divers. 


Commande par 
logiciel 


La sortie TTLO se commande en ré- 
férençant les adresses $C058 et 
$C059 (voir manuel de référence 
Apple Il page 77). Un POKE ou un 
PEEK en $CO058 mettra la sortie à 
l'état bas et désactivera le relais. Le 
moniteur doit alors être relié sur la 
sortie vidéo 40 colonnes (sinon in- 
verser les liaisons vidéo), de façon à 
se trouver dans cet état lors de la 
mise sous tension de l'Apple. Si on 
utilise l'adresse $C059, la sortie 
TTLO sera mise à l’état 1 et le relais 
sera alors activé. C’est tout ! 


Amélioration de la 
commande logicielle 


Ce qui est dit ci-dessus fonctionne 
parfaitement, mais... Supposons (cas 
’tordu”), que l'on allume l'Apple, on 
est donc en 40 colonnes, TTLO est à 
l'état bas. Appuyons sur le poussoir 
qui fait passer en 80 colonnes. Le 
relais bascule et le moniteur est relié 
sur notre carte 80 colonnes. Faisons 
alors un POKE 49240,0 par exem- 
ple. Le moniteur ne revient pas en 
40 colonnes. Drame ! En fait c'est 
normal car, pour plus de simplicité, 
le montage ne répercute pas sur 
TTLO le changement d'état manuel 
que nous avons fait TTLO étant 
resté à l’état O. le POKE ne fait que 
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forcer à O une sortie qui y était déjà: 
donc aucune impulsion n'a été géné- 
rée, ce qui explique l'absence de 
réaction du montage. Si vous n'avez 
pas bien suivi, reprenez le paragra- 
phe lentement, c'est simple ! 


La parade consiste, lorsqu'on veut 
commander un état (passage en 40 
colonnes par exemple), à envoyer en 
premier lieu la commande inverse, 
puis la commande voulue. On est 
ainsi assuré de la génération d’une 
impulsion de commande puisqu'on 
fait passer TTLO dans les deux états 
successivement. En Basic cela don- 
nera : 


POKE —16295,0 ($C059) 
POKE —16296,0 ($C058) 


Pour passer en 40 colonnes et inver- 
sement, pour passer en 80 colonnes: 
c'est imparable ! 


Dernier raffinement 


Si on est déjà en 40 colonnes et que 
l’on exécute les deux instructions ci- 
dessus, on observera un flash à 
l'écran dû au passage intermédiaire 
en 80 colonnes. Ce n'est pas beau et 
je ne sais pas si la vidéo aime beau- 
coup. La solution est de faire ces 
deux accès en assembleur. En effet 
la lenteur de l'interpréteur Basic (ou 
P-code si on est en Pascal UCSD) 
fait que le relais ’a le temps” de bas- 
culer dans les deux positions. Si on 
programme la séquence en assem- 
bleur, il n’aura plus le temps de ‘’sui- 
vre” (du fait de son inertie mécani- 
que) et il ny aura pas de flash à 
l'écran. Il y a juste une précaution à 
prendre : introduire une temporisa- 
tion entre les deux accès, sinon l'im- 
pulsion générée est trop courte pour 
être enregistrée par le montage. 
Conclusion, cela se traduit par : 


SW40 PHA 
TXA 
PHA 
LDA $C059 
LDX £$0A 
DEX 
BNE LOOP 
LDA $C058 
PLA 
TAX 
PLA 
RTS 


LOOP 


Pour la procédure SW80, il suffit 
d'inverser $C058 et $C059. Le nom- 
bre de boucles de temporisation a 
été déterminé par expérimentation : 
suffisamment grand pour être enre- 
gistré par le montage (en fait le mini- 





mum est de 5), mais pas trop grand 
pour que le relais ne suive pas. 


Conclusion 


L'auteur a introduit ces procédures 
un peu partout. En Pascal, on peut 
en faire une UNIT et les mettre en 
SYSTEM.LIBRARY, ce qui facilite 
l'appel par les programmes (pas 
d'édition de liens à faire). En Basic 
pas de commentaire particulier. Sous 
CP/M il faut se souvenir du glisse- 
ment des adresses entre le 6502 et le 
Z80, et par conséquent $C058 et 
$C059 deviennent respectivement 
$E058 et $E059. En mettant la rou- 
tine SW80 en AUTORUN, on obtient 
une disquette CP/M qui commute 
automatiquement le moniteur en 
“bootant”. La même manipulation 
peut se faire en Pascal en utilisant le 
SYSTEM.STARTUP.  Sympathique 


non ? 


Comme mentionné en début d'arti- 
cle, le montage revient à environ 100 
francs si on utilise des composants 
courants. Il ne nécessite aucune mise 
au point si on n’a pas fait d'erreur de 
câblage. 


Remarques diverses 


À la longue, pour éviter les problè- 
mes avec les poussoirs, il vaut mieux 
utiliser des poussoirs de type digitast. 
Ils sont équipés de contacts anti-re- 
bond en or. Il en existe même, 
comble de raffinement, un type 
comportant une LED témoin sur la 
touche. Le modèle sans LED côute 
environ 13 francs, et celui avec, à 
peu près 25 francs. Il est un plus 
cher, certes, mais nettement plus fia- 
ble. 


Le circuit intégré utilisé est un CD 
4011 CMOS. Ne pas prendre son 
équivalent TTL pour deux raisons. 


Tout d’abord les valeurs des compo- 
sants ne sont pas prévues pour ce 
type de circuit (impédances d'entrée 
et de sortie beaucoup plus faibles en 
TTL). D'autre part, le brochage du 
circuit TTL n'est pas le même que 
celui du circuit CMOS. Le tracé du 
circuit imprimé serait donc faux. 


Pour ce qui est du relais, il est préfé- 
rable d'utiliser un relais monté en 
boîtier CI. Il a l'avantage d'être mi- 
niaturisé, et de nécessiter des cou- 
rants de commande très faibles (ne 
pas oublier que l'on ne doit pas 
consommer plus de 200mA sur la 
sortie 5 volts du connecteur de jeux). 


La diode D3 sera une diode de re- 
dressement quelconque. Son rôle est 
d’absorber les courants d'auto-induc- 
tion qui prennent naissance dans la 
bobine du relais et qui pourraient en- 
dommager le transistor T1. 








| 
| 
| 
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Figure 2 


Nomenciature: 


Résistances: 
B1,B2: 100 ko 
B3,B4: 10 kohm 


R5.R6: 470 ohm 


Condensateurs: 
C1.C2: 47nF 


Transistors: 


Diodes: 
D1,D2: LED 


IC: 


Divers: 









Switch vidéo: brochages divers 


—— 0 vmits 


TILO + 


+—— +5 voits 
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CLAVIER 


Connecteur de jeux APPLE II 


—_—_————_—_—————— 


Lol WU] 
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LD Ov 
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CD4011 


Figure 3 


T1 T2: 2H2222 ou équivalent 


D3: diode redressement 


IC1: CD4011 (4 portes NAMD CHOS 2 entrées) 


SW1,5W2: boutons poassoirs 


Belai 5 voits (brochage CI} 


Câble cosxial vidéo, prises CINCH.... 


Connectear 16 broches CI (pour 1s sortie GAME de 1° APPLE) 


Trucs et Astuces 


Comment éviter le clignotement 
du curseur sur un Apple //e 

Le clignotement est dû au fait que 
l'on change les données au moment 
même où on les affiche à l'écran. Il 
faut lire le signal en $C019 (49177), 
et changer l'affichage lorsqu'il est au 
va bas (c'est-à-dire, inférieur à 


Essayer le programme ci-dessous 


avec : 
30 GOTO 10 





30 GOTO 20 


Bien entendu, ceci est particulière- 
ment utile pour le HGR (notamment 
pour les affichages de shapes). 


10 IF PEEK (49177) > 127 THEN 
20 VTAB 10: HTAB 10: PRINT * 
VTAB 10: HTAB 10: PRINT 


"POM'S" 
30 GOTO 10 


Source : Manuel de référence de 
l'Apple //e. 
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Mini -éditeur Basic pour Apple II ou //e 


Je vous propose un petit programme 
en langage machine, connecté au ni- 
veau de la routine d'accès au clavier 
(RDCHAR), qui reçoit ses instruc- 
tions de l'utilisateur par l’intermé- 
diaire du clavier (le vrai) et simule 
des touches ‘’soft” pour le système. Il 
n'assure aucune gestion, ni de 
l'écran, ni du buffer d'entrée ($200), 
et fonctionne donc sous toutes les 
configurations qui utilisent la routine 
d'entrée KEYIN : moniteur, Applesoft 
en immédiat, Applesoft en mode 
programme avec les fonctions INPUT 
et GET, DOS... 


Il donne accès aux fonctions suivan- 
tes : 


1-Redéfinition sur le clavier 
QWERTY d'un bloc numérique, sui- 
vant la disposition ‘’calculette” adop- 
tée sur plusieurs machines (HP 75, 
Epson HX 20...). 

Cette fonction est accessible par pro- 
gramme, en mode immédiat et en 
Basic (très commode pour un pro- 
gramme de saisie de données qui al- 
terne des saisies alphabétiques et nu- 
mériques). 

2-Programmation des touches pour 
générer automatiquement une suite 
de caractères. Le programme pos- 
sède sa propre table de données et 
peut donc accepter n'importe quoi 
(on n’est plus limité aux seuls mots 
Basic lus dans la ROM Applesoft). 
On pourra, bien sûr, préprogrammer 
des mots Applesoft, des commandes 
DOS courantes (SAVE, LOAD, CA- 
TALOG..), mais aussi toute sé- 
quence utilisée fréquemment dans un 
programme (FOR I =1 TO K, PRINT 
CHRS(4) par exemple). La program- 
mation se fait touche par touche, en 
mode immédiat et on peut la redéfi- 
nir à tout moment. On peut prépro- 
grammer un clavier et le stocker sur 
disque en l'état, et conserver ainsi 
des claviers différents, que l’on char- 
gera en fonction du type de pro- 
gramme exécuté (clavier Basic cou- 
rant, clavier spécial commandes 
graphiques, etc...). 

3-Numérotation automatique des 


lignes en Applesoft Mise en (ou 
hors) service en permanence. 


4-Le clavier possède des commandes 
de tabulation (uniquement sur l’Ap- 
ple //e) qui utilisent les touches DEL 
et TAB. 


Le programme est implanté à partir 
de l'adresse $8600, et non plus haut, 
pour permettre la cohabitation avec 
un autre utilitaire de programmation, 
le logiciel RENUMBER — HOLD — 
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MERGE d'Apple, qui se charge à 
partir de l'adresse $8D00. Il modifie 
HIMEM lors de sa mise en service 
pour assurer sa protection. Attention, 
RENUMBER fait de même, il est 
donc recommandé de charger 
d'abord RENUMBER, puis le clavier, 
si l’on désire utiliser les deux. 


Utilisation 
Mise en service 


Si le programme n'est pas en mé- 
moire, il suffit de faire : 
BRUN  CLAVIER2E (ou 
VIERZ2+., ou tout autre nom). 
Si le programme est déjà chargé, 
mais a été désactivé, on fera : 

— Sous Basic : CALL 34304. 

— Sous moniteur : 8600G. 

Le système rend la main avec un 
curseur modifié. 


CLA- 


Mise hors service 


— Méthode brutale : RESET. 

— Méthode délicate : passez sous le 
moniteur et tapez : 

AA55: 1B FD suivi de RETURN. 


Sauvegarde 


Le programme CLAVIER2E ou 
CLAVIER2+ ne comporte pas de 
table de touches prédéfinies. On l’uti- 
lisera pour créer une collection de 
claviers préprogrammés, sauvegardés 


par : 
BSAVE Nom,A$8600,L$651. 


Commandes 


Le fonctionnement est un peu diffé- 
rent selon l'Apple dont vous dispo- 
sez. 

L’Apple //e utilise la touche ‘Pomme 
Pleine” (dite PP) pour les comman- 
des, et la touche Pomme Ouverte” 
(dite PO) pour les sorties de chaînes 
programmées (toute ressemblance 
avec les fonctions glossaires d’Ap- 
plewriter //e a été très difficile à obte- 
nir !). Les touches ‘’Pommes” sont 
utilisées, comme les touches SHIFT 
et CTRL, en maintenant la 
Pomme” enfoncée et en appuyant 
sur une autre touche. 

L’Apple Il utilise la touche CTRL 
pour les deux (le pauvre !). 


Bloc numérique 


La redéfinition est la suivante : 


"1,0, 9%: "07-1207 I" 
°K”, 7L”, M”, ?,”, ”” correspon- 
dent respectivement à 7, 8, 9, 4,5, 
6,1,2,3,0,E, ”.”. Pour une utili- 


sation facile, il est recommandé de 
marquer les touches : caractères LE- 


Jean-François Rabasse 


TRASET plus vernis mat par exem- 
ple, ça marche très bien, venez voir 
le mien. 


e Commutation alpha / numérique 
Sur Apple //e : PP-N. 
Sur Apple II : CTRL-Z. 

e Commutation numérique / alpha 
Sur Apple //e : PP-A. 
Sur Apple Il : CTRL-Z. 

e Dans un programme Basic 
— Numérique : POKE 255,255 
— Alpha : POKE 255,0 


Touches programmées 


1— Programmation d'une touche : 

e Passer en mode programme : 
Apple //e : PP-P. 
Apple Il : CTRL-B. 

e Taper les caractères désirés. 

© Affecter la séquence à une touche 
choisie par : 
Apple //e : PO-touche. 
Apple Il : CTRL-touche. 


L'affichage écran indique alors la 
touche d'affectation, annule la ligne, 
et on sort du mode programme. 


ATTENTION : 

— En mode programme, les possibili- 
tés d'édition sont limitées. On peut 
corriger la frappe par les flèches gau- 
che et droite, mais pas en édition 
d'écran. ESC est inhibée, ainsi que 
CTRL-X. 

— Si une touche n’est pas program- 
mable, toute affectation sera ignorée. 
— Une touche peut être reprogram- 
mée à volonté. 

— Pour déprogrammer, surtout sur 
Apple II, si l'on souhaite récupérer 
un caractère de contrôle, il suffit de 
programmer une chaîne vide : 

Apple Il: CTRL-B puis CTRL-tou- 
che. 

Apple //e : PP-P puis PO-touche. 


2— Sortie de la programmation 
d'une touche : 

Apple //e : PO-touche. 

Apple Il : CTRL-touche. 

Remarques: une touche non pro- 
grammée renvoie le caractère qui lui 
correspond. 

La programmation est prioritaire sur 
la redéfinition numérique du clavier. 
Une touche K non programmée ren- 
verra un K et non un 2, si elle est 
utilisée avec PO ou CTRL. 


3— Capacités de programmation : 

Sur Apple //e, toutes les ‘lettres ma- 
juscules” acceptent jusqu'à 7 caractè- 
res (suffisant pour tous les mots de 
l'Applesoft ou du DOS) et les tou- 
ches ”’chiffres”’ jusqu'à 23 caractères. 


Sur Apple II, seules les touches al- 
phabétiques sont programmables, 
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Lu 


Lo 


Fe 


ès 


one 
She ue FE 


Dar 


Pete 


A RES EERMEREMENRE 
56 


sauf les caractères de contrôle sui- 
vants. 


Les fonctions d'édition : 
Break : CTRL-C 
Cancel : CTRL-X 
Return : CTRL-M 

Bsp : CTRL-H 

Nak : CTRL-U 


Les commandes clavier : 
CTRL-B 
CTRL-Z 


On dispose ainsi, sur l'Apple II, de 
19 touches acceptant 15 caractères 
4— Recommandations 

Dans un programme Basic, le clavier 
fonctionne avec INPUT et GET. 
Avec GET, il faut éviter de frapper 
une touche programmée, sinon le 
GET va récupérer le premier carac- 
tère de la séquence et tous les GETs 
qui lui succèdent prendront les carac- 
tères suivants, un par un, sans possi- 
bilité d'intervention de l'utilisateur. 
Résultats folkloriques assurés ! La so- 
lution est la suivante : inhiber, pour 
un accès clavier, la fonction pro- 
gramme par : 

POKE 254,0 : GET … 


Générateur de numéros de 
lignes (mode AUTONUM) 


1- Mise en service : 


e Passer en mode programme (PP-P 
où CTRL-B). 

e Taper : le numéro de la ligne et le 
pas d'incrémentation. 

e Return 

Le générateur possède des valeurs 


par défaut qui sont 10,10. On peut 
donc utiliser toutes les combinaisons 
possibles : 

Pour 10,10 : Mode Programme ‘’Re- 
turn”. 

Pour 100,10 : Mode Programme et 
7100” Return”. 


Pour 10,5: Mode Programme et 
7,5” Return”. 
etc... 


Remarques : le générateur sait comp- 
ter jusqu'à 65535, mais l'Applesoft 
ne va pas au delà de 63999 (donc 
faites des programmes courts !). Le 
générateur sort un nouveau numéro 
après chaque entrée de ligne et res- 
sort le même numéro après une an- 
nulation par CTRL-X. 

2— Sortie 

La sortie du mode AUTONUM se fait 
manuellement, en appuyant sur RE- 
TURN juste après le numéro de 
ligne. On sort automatiquement en 
cas de ‘collision lorsque le généra- 
teur, en cours de numérotation, ren- 
contre une ligne de programme déjà 
existante. C’est une sécurité qui per- 
met de réinsérer des lignes, en nu- 
mérotation automatique, sans risquer 
de détruire ce qui existe. On ne 
pourra donc pas utiliser ce mode 
pour réécrire une série de lignes 
(prenez vos responsabilités et faites 
DEL vous même). 


Tabulations sur lignes (réservé 
aux Apple //e). 


1-— Touche TAB : 
Même fonctionnement que la touche 


flèche à droite mais déplace le cur- 
seur de 10 en 10. Il est ainsi aisé de 
recopier rapidement une longue ligne 
Basic (attention aux répétitions, cela 
va très vite). En maintenant enfon- 
cées les touches PO et TAB le cur- 
seur se déplace, vers la gauche, de 
10 en 10. 


2— Touche DEL : 


C’est une touche d'annulation : elle 
fait reculer le curseur comme la fle- 
che à gauche, qui supprime le der- 
nier caractère frappé, alors que DEL 
supprime les caractères correspon- 
dant à la dernière frappe de touche 
(supprime le mot si la touche est pro- 
grammée). 


Pour terminer, si vous trouvez des 
bugs ou si vous avez des suggestions, 
faites le moi savoir. 


Deux conseils : 

— Ne pas utiliser le Clavier avec l'IN- 
TEGER BASIC. 

— En ce qui concerne l'édition sur 
80 colonnes : les cartes ‘incrustées” 
(carte texte Apple //e) ne supportent 
pas la routine moniteur KEYIN (et les 
fonctions Basic qui l'utilisent, INPUT 
et GET); il est donc impossible d'em- 
ployer cet éditeur. Par contre, les 
cartes de type terminal vidéo (Super- 
term, Videx, etc...), fonctionnent par- 
faitement. 


N.D.L.R : ce programme tourne sur 
l'Apple //c. Il faut charger CLA- 
VIER2E. Il est à noter que le curseur 
n'est pas visualisé. 

LC] 





CLAVIER.LIST 60 DC = 8 
70 CA = 

10 AD = 30000: HIMEM: AD 1000 

20 INPUT "NOM DE VOTRE CLAVIER ? *;N$ 75 

30 PRINT CHR$ (4) ;"BLOAD" ;N$;",A";AD 80 END 

35 PRINT CHR$ (4) ;"PR#1": PRINT N$: PRI 1000 FOR I 
NT C$ = 

40 DC = 16: ON PEEK CAD + 769) / 50 + 1 1100 IF 


GOTO 50,70 


50 DC = 24:CÀA = 48:IMAX = 9:AB = AD + 252 


: GOSUB 1000: PRINT 


EXT : 


65: IMAX 


= 25:AB = AD + 44: GOSUB 


PRINT CHR$ (4) ;"PR#0O" 


0 TO IMAX:AX = AB + DC * !: 
CHR$ ÇCCA + I) + "5 " 
PEEK CAX) = 0 THEN PRINT C$: N 
RETURN 
1200 C$ = C$ + 


CHR$ ( PEEK (AX) - 128): 


X = AX + {: GOTO 1100 


; ADRESSES SYSTEME 


1° 19 FNDLIN 
2 I FERERREREREREEREREÉERERÉEREEXÉEXX 20 SAVE 

3 5: # * 21 DOSPTR 
4 ;+ CLAVIER PROGRAMMABLE x 22 RESTORE 
S ;+* * 23 MOVAF 
é 3% //E (A2E=1) ET 11+ (A2E=0) * 24 SNGFLT 
7 3% (ASSEMBLAGE CONDITIONNEL) * 25 FMULTT 
8 3; + * 26 FADDT 
S ;# IMPLANTATION: #$58600 À $8C51 * 27 FOUT 
10: 5% * 28 FRMNUM 
LL OLHRRERSERRERERERÉEREERERRÉERÉESERÉEX 29 KSWDOS 
12 30 GETADR 
13 ; 31 LINPTR 
14 A2E EGU $1 3 OPTI 22 ; 

ON D'ASSSEMBLAGE 3 

15 3 34 ; 
16 ; ROUTINES SYSTEME 3S TXTPTR 
17 3 36 MEMSIZ 
18 GIVAYF EQU $E2F2 37 LINNUM 


EQU 
EQU 
EQU 
EQU 
EGU 
EQU 
EQU 
EQU 
EQU 
EQUu 
EQU 
EQU 
EQU 


EP2Z 
EP2Z 
EPZ 


$Dé1A 
$FF4A 
$03EA 
SFF3F 
$EB63 
+E301 
$E982 
$E7C1 
$ED34 
$DD67 
$AASS 
$E752 
$ED24 


+$B8 
$73 
#50 
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87 


88 
89 


FAC EPZ $A0 
KBD EGU $C000 
KBSTROBE EQU $C010 
POMQOUV EQU +$COéi 
POMPLEI EQU $C062 
, 
3;  POINTEURS PROGRAMME 
, 
ALP EPZ $FC 3 POINTE 
UR DE CHAINES 
PROG EPZ $FE :INDICA 
TEUR DE PROGRAMMATION 
MODE EPZ $FF ; ETAT D 
U CLAVIER (ALPHA:#$00 
; NUMERI QUE 
:$FF) 
; 
ORG $58600 
08J +800 
3 
PAG 
; ENTREE POUR INITIALISATION 
à 
ACCES JMP INIT 
L 
; TABLES DE DONNEES 
3 
NLIN DFS +$02,0 :NO DE 
LIGNE DE PROGRAMME. 
INCL DFS $02,0 ; INCREM 
ENT. 
AUTOFL DFS +$01,0 ; DEUX 
FLAGS POUR L'ETAT DU 
AUTOSOR DFS $01,0 ; GENERA 
TEURS DE NOS DE LGN. 
PTTB DFS #$01,0 3PTR DE 
LA TABLE DE CHAINES. 
KB DFS #$01,0 ; TOUCHE 
FRAPPEE AU CLAVIER. 
TYPE DFS $01,0 : TYPE D 
E TOUCHE (ALPHA ,NUM, ) 
STATUS DFS +$01,û TEST D 
E SORTIE ROUTINE. 
CPTC DFS $01,0 ; COMPTE 
UR DE CARACTERES. 
FLPR DFS $1,0 3 FLAG D 
E PROGR. EN COURS. 
LPR DFS #1,0 ; LONG. 
DE CHAINE PROGRÂAMMEE. 
POM DFS $1,0 ; ETAT D 
ES TOUCHES POMMES. 
; 
, 
ACT DFS $1E,0 ; BUFFER 
DE STOCKAGE. 
.IF À2E 
ATP DFS #00 ,0 ; TABLE 
DES CHAINES ALPHA. 
ATN DFS $F8,0 ; TABLE 
DES CHAINES NUM. 
«EL 
ATP DFS $1AF,0 ; TABLE 
UNIQUE SI APPLE2+ 
.FI 
L 
; TABLE DE REDEFINITION DU CLAVIER 
3 
ATR ASC " !'"H#S7&’()#+E-,./01234 
5S6789:;<=)>?9" 
ASC "ABCDEFGHS1230NéPGRST 4U 
WXY2Z" 
HEX DBDCDDDEDFEO 
ASC "abcdefahS5i230népqrstäu 
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REPARER ENT. 


WXx 


NUL 
MSG2 
MSG3 
FTAB 
88 


BTAB 
ZDEL 


) 


ENT 


yz" 
MESSAGES 


ASC 
HEX 
ASC 
DFS 
HEX 
ASC 


PROGRAMME 


"PROGRAMME : " 
00 

" AFFECTE À " 
$1,0 

AÛAOS800 

" AUTONUM " 


HEX 9800 


ASC 
HEX 
ASC 
HEX 
HEX 
HEX 
88888 
HEX 
HEX 
FAG 


ROUTINE D'ENTREE 


JSR 


ARDE 6502. 


BIT 


"BLOC NUMERIQUE * 

s800 

"CLAVIER ALPHABETIQUE" 
ss0a 
PS9597575959597595959500 
cessesesesecsessesesses 


sesesesessessessesees 
ao 


(REMPLACE RDCHR 


SAVE ; SAUVEG 


PROG 3SI UNE 


CHAINE PROGRAMMEE 


BPL 


LECO ; EST E 


N COURS DE SORTIE, 


JMP 


PRG2 ;ON CON 


TINUE À LA SORTIR. 


LECG 


BIT 


STATUS EST ON 


SORTI NORMALEMENT 


BPL 


LEC ; AL’ 


APPEL PRECEDENT ? 


LEC 


JSR 


DOSPTR : SI NON 


RECONNECTE LE DOS 


ASL 
SEC 
ROR 
INC 
BIT 
BIT 


STATUS 


STATUS 
CPTC 
KBSTROBE 


AUTOFL ;EST ON 


EN NUM. AUTO.7 


BPL 
LDA 


LEC2 
KB ; DERNIE 


RE TOUCHE FRAPPEE? 


? 


LEC2 


CMP 


EBNE 
JMP 
CMP 


BNE 
JMP 
BIT 


##9e ;:CTRL X 
>s 
NUM2 
#$8D ;:CTRL M 
LEC2 

NUM! 


KBD ; LECTUR 


E DU CLAVIER 


BPL 
IF 
BIT 


S POMMES 


PHP 
LDA 
AND 
TAX 
PLA 
ASL 
TXA 
ADC 
STA 
.FI 
LDX 


LEC2 
A2E 


POMPLEI ; ET DE 


POMOUV 
#$60 





FER 


# 
: 


ge 


ss 


1434 HA 








58 





; 


STX KB 

.I1F ÀZE 

CPX H#$FF 
UNE TOUCHE DEL 7 

BNE >3 


LA TOUCHE HTARB ? 
BNE D>2 
JMP TAB 


:EST CE 


;EST CE 


TRANSFORMATION D’UNE FRAPPE DE CLA 


VIER APPLE2+ 


.EL 
S TOUCHES CTRL 
STA POM 
AUTORISEES. 
CPX ##9B 
BCS SUITE 
CPX ##80 
BEQ SUITE 
CPX #$83 
BEG SUITE 
CPX #$88 
BEG SUITE 
CPX ##8D 
BEQ SUITE 
CPX ##95 
BEG SUITE 
CPX #$98 
BEQ SUITE 
CPX H##9A 
,ON SIMULE 
BNE 7 
LEINE +A OÙ N POUR 
LDA H$CE 
OMMUTATION CLAVIER 
STA KB 


L Z 


7 CPX #$82 


L B ,ON SIMULE POM 
BNE >9 
+P POUR L'APPEL DU 
LDA #$D0 
PROGRAMME 
STA KB 
JMP <8 


x® LDA #$80 


SUITE 


RE TOUCHE CONTROLE, 
STA POM 

UV + TOUCHE ALPHA 

LSR 

CLC 

ADC KB 

STA KB 

LDA POM 

LDX KB 


.FI1 


TRI DE 


; NON 


3SI CTR 
; POM P 


5 LA C 


:SI CTR 
; PLEINE 


; MODE 


:SI AUT 


; POM O0 


209 


210 
211 
212 
213 
214 


215 
21é 


217 
218 
219 


220 
221 


222 
223 
224 


225 
226 


#2 BIT FLPR 
EN COURS DE PROG? 
BPL 1 
JMP PROGMT 
“1 ASL 
BCS PRG1I 
OUV ,SORTIE CHAINE 
LSR 
LSR 
BCS FONCI 
, COMMANDE 
BIT MODE 
BPL >2 
JSR REDEF 
VU NUM ,CHANG. CARACT. 
+2 LDA KB 
CMP H$8D 
VIENT DE TAPER RET, 
BNE 1 
GU'ON SORTAIT 
BIT AUTOSOR 
DE LIGNE, 
BPL 1 
LDA ##0 
STA AUTOFL 
ULE LE MODE AUTONUM 
A LDA #$0 
STA AUTOSOR 
ULE LE FLAG DE SORTIE 
SORT INC CPTC 
PTE LES CARAC. SORTIS 
ASL STATUS 
JSR RESTORE 
MET TOUT DANS L'ETAT 
STA (#28) ,Y 
L’A TROUVE , 
LDA KB 
BIT KBSTROBE 
SE RETIRE SUR LA 
RTS 
TE DES PIEDS 
FONCI JMP FONC 


PLEINE 


; 
> ROUTINE D'INITIALISATION 


, 
INIT LDA #$0 

LISATION DES FLAGS 
STA TYPE 
STA PROG 
STA MODE 
STA FLPR 
STA STATUS 
STA AUTOFL 
LDA #HACCES 

ONNEMENT DE HIMEM 
STA MEMSIZ 

ANT LE CODE. 
LDA ACCES 
STA MEMSIZ+1 
NOP 
LDR #ENT 

DU POINTEUR KSUW 
STA KSWDOS 
LDA /'ENT 
STA KSWDOS+1 
RTS 


Du 


EDEF LD£ KB 

E DE LA TABLE DE 
CMP H$FB 

NITION INDEXEE PAR 
RCS FIND 





REDEFINITION DU CLAVIER 


;EST ON 


:S1 POM 


: SI POM 


;:INITIA 


3POSITI 


; DEV 


;MODIF 


: LECTUR 
: REDEFI 


3LE COD 


Pom's n° 17 


312 
313 


314 
315 
316 
217 


Pom's n° 17 


CARAC. 
#$A0 


E ASCII DU 


FIND 
#$A0 


#ATR 
ALP 
/ATR 
ALP+1 
(ALP) ,Y 
KB 

FIND 


; 
; TOUCHES PFROGRAMMEES 


3 
PRGI LDA #$0 ; ANNULA 
TION DU FLAG DE SOR- 
STA AUTOSOR' 
NO DE LIGNE 
JSR CALCA 
ADRESSE CHAINE 
LDA TYPE 


:TIE DE 
; CALCUL 


; CONTRO 


LE 
BEG SORT2 


:ROUTINE DE SORTIE D'UNE CHAINE POIN 
TEE PAR ALP , 
; TERMINEE PAR $0 
0 
, 
PMES ASL PROG :FLAG S 
ORTIE CHAINE 
SEC 
ROR PROG 
LDA #$0 
UR EN DEBUT DE CHAINE 
STA PTTB 
TAY 
LDA (ALP) ,Y 
E 1ER CARACTERE 
BNE PRG2 
“VIDE" 
.1F A2E 
JMP SORT 
.EL 


: POINTE 


3 LECTUR 


:SI #00 
TOUCHE 


KB 
#$40 
KB 
SORT 


PRG2 PTTB 3 LECTUR 


E CHAINE ET SORTIE 


LDA (ALP) ,Y ; 
ARACTEREE 
BEG 
STA 
INC 


DU C 


FINP 
KB 
PTTE 
SORT2 JMP SORT 
FINP ASL PROG 
CHAINE TERMINEE , 
LSR PROG 
LE FLAG ET RETOUR 
JMP LEC 
TURE CLAVIER 


:S1 #00 
; ANNULE 


;EN LEC 


ROUTINE DE CALCUL DE L'ADRESSE D’ 
UNE CHAINE 


LDR ##0 

STA TYPE 

LD£ KB 

CHE FRAPPEE EST ALPHA 


, 
CALCA 


:LA TOU 


CMP 
QUE, 

BCS 
MMEBLE 
CMP 
BCS 
.1F 
CMP 
BCs 
CMP 
NOP 
BCS 
.FI 
RTS 
sBC 


SORTI 
ALFA 
INDEX 
ASL 


#$DE ; NUMERI 


OÙ NON 


SORT1 ; PROGRA 
#$CI1 

ALFA 

A2E 

#$BA 

SORTI 

#$B0 


NUM 


##&C1 ; CALCUL 


CHAINE DANS 


iLA TAB 


LE ALPHA, ET RANGEM. 


ASL 
ULTAT DANS 

ASL 
UR ALP 


STA 
ASL 
SEC 
ROR 
RTS 
.1F 


NUM SBC 


VEC TABLE TOUCHES 


ASL 
QUES 

âASL 
ASL 
STA 
ASL 
ADC 
ADC 
STA 
LDA 
ADC 
STA 
LSR 
SEC 
ROL 
RTS 
.FI 


FONCT ICONS 


. 
|; 
. 
, 


LDA 
CMP 


BEQ 
CMP 
EEQ 


: DU RES 
LE 
; POINTE 


À2ZE 
#ATP 
ALP 
JATP 


#$0 
JATP 
ALP+1 


HATP 
ALP 
ALP+1 


##$0 


ALP+1 
TYPE 


TYPE 


Â2E 
#$B50 





; IDEM À 


:NUMERI 


RSR 


£a 


CODE 


CODE 
HATN 
ALP 
JATN 
##$0 
ALP+1 
TYPE 


TYPE 


APPELLEES PAR POM PLEIN 


KE 
##D0 :TRI P 
TPF 

H$CE : N 7 
TNU 








382 CMP H##$CI ; OU À 487 BEQ LECI 





“ 438 CMP #$98 
383 BEG TAL . | 439 BEQ LECI 
384 JMF_ SORT 440 CMP #$8D :SI RET 
38eS TNU LDA #&FF : FASSAG URN APPEL DU MODE NUM | 
E EN MODE CLAV NUM. 441 BNE D>7 ; DE 
3&é STA MODE LIGNES. 
387 LDA #MSG2Z ; ET Sû 442 JMP AUTOLIN 
RTIE OÙ MESSAGE 443 ‘7 BIT PCM 
388 STA ALP 444 BMI )>3 
389 LDA /MSG2 445 CMF #$28 :LES CA 
390 STA ALP+1 RACTERES FRAPPES SONT 
291 JMP PMES 446 BNE 1 ; RANGES 
372 TAL LDA ##00 : MODE À DANS LE BUFFER ACT 
LPHA ET MESSAGE 447 LDX LPR ;LE POI 
273 STA MODE NTEUR X PREND EN 
394 LDA #MSG3 448 BEQ LECI ; COMPTE 
375 STA ALP LES TOUCHES FLECHES 
276 LDA /MS63 449 ‘é DEC LPR ; AVANT 
397 STA ALP+1 ET ARRIERE. 
398 UMP PMES 450 JUMP SORT 
399 ; 451 ‘1 CMP #$95 ;LE POI 
400 ;ROUTINE DE PROGRAMMATION: VALIDATIO NTEUR CONTROLE LA 
N 452 BEQ >2 ; LONG. 
401 3; MAX DE LA CHAINE 
402 RANGI LDA #H#50 ; UN $0û 453 LDX LPR 
O0 DANS LE BUFFER, 454 STA AZT.X 
403 STA AZT,X ; 455 ‘°2 INC LPR ;ON SOR 
EN FIN DE CHAINE T APRES FRAPPE 
aû4 INX 456 LDX H#$18 ;  TOUC 
405 TXA HE POMME OUVERTE. 
a0é TAY 457 CPX LPR 
407 RECOP DEX 458 BCC <é 
aug DEY 459 JMP SORT 
409 BMI FINPR 460 °3 JSR CALCA 
410 LDA AZT,X ; ON REC 46! LDX LPR 
OPIE LE BUFFER DANS 462 LDA TYPE 
411 STA (ALP) ,Y ; LA TA 463 BEQ LECI 
BLE DE RANGEMENT 464 BIT TYPE 
412 JMP RECOP 465 BPL DS 
412 LECI JMP LEC aéé .1F A2E 
414 FINFR LDA KB 467 CPX #$08 
415 STA CODE 468 .EL 
aié ASL FLPR :ON POS 469 CPX ##10 
ITIONNE LE FLAG DE 470 .F1 
417 LD HMSGi ; SORTIE 471 BMI >4 
, ON AFFICHE LA 472 .I1F AZ2E 
418 STA ALP ; TOUCHE 473 LDX ##07 
D'AFFECTATION 474 .EL 
419 LDA /MSG1 ;ET LE 475 LDX ##0F 
MESSAGE CORRESPONDANT 476 .F1 
420 STA ALP+1 477 ‘4 JMP RANGI 
421 JMP PMES ; SORTIE 478 ‘5 CPX H##18 
; 479 BMI RAI 
422 :; 480 LDX ##17 
423 ;ROUTINE DE PROGRAMMATION: SAISIE, ED 481 RAI JMP RANGI 
ITION 482 ; 
424 ; 483 ;FONCTION TABULATION 
425 TPR LDA #MSGO : FASSAG 484 ; 
E EN MODE PROGRAMME 485 TAB BIT PCM ;: TEST D 
426 STA ALP ; SORTIE E LA POMME OUV. 
DU MESSAGE. 486 EMI 1 :POUR L 
427 LDA /MSGO E SENS DE DEPLAC- 
428 STA ALP+1 487 LDA #FTAE ; EMENT 
429 LDA #$8&0 CURSEUR. 
430 STA FLPR 488 STA ALP 
431 LDA #$0 489 LDA /FTAB ;ON SOR 
432 STA LPR T UNE CHAINE DE 
433 JMP PMES 490 STA ALP+1 510 CT 
434 ; RL H OÙ CTRL U. 
435 PROGMT  LDA KE : INTERC 491 JMP PMES 
EPTION DES FRAPPES 492 ‘1 LDA HBTAB 
436 CMP H$SEB ; REF 493 STA ALP 
US DE ESC ET CTRL X. 494 LDA /ETAB 
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495 STA ALP+1 
496 JMP PMES 
497 : 
498 :;FONCTION DEL 
499 ; 
500 DEL SEC 
T UNE CHAINE DE CPTC 
501 LDA #HZDEL 
IS CTRL U. 
502 SBC CPTC 
503 STA ALP 
504 LDA /2DEL 
505 SBC ##0 
506 STA ALP+1 
507 SEC 
50e LDA #$0 
509 SBC CPTC 
510 STA CPTC 
S11 JMP PMES 
912 ; 
513 ;NUMEROTATION LIGNES: 
RAMETRES 
514 ; 
515 AUTOLIN LDX LPR 
N FIN DU BUFFER ACT, 
Sié LDA #$0 
517 STA AZT,X 
518 INX 
519 STA ACT,,X 
520 DEX 
521 STA NLIN+1 
522 STA INCL+1 
523 TAY 
524 DEX 
525 BMI >5 
526 ‘4 LDA AZT,X 
N FORME DU BUFFER. 
527 AND #$7F 
528 ‘3 STA ACT,X 
529 DEX 
530 BPL <4 
531 ‘5 ASL FLPR 
532 BIT KBSTROBE 
UER LE CLAVIER SI LES 
533 LDA #AZT 
NES FRMNUM,GETADR, 
534 STA TXTPTR 
TENT" ET FONT SORTIR 
535 LDA /AZT 
NDLERR. 
536 STA TXTPTR+I 
537 LDA ##0A 
ITIONNE LE TXTPTR, 
528 STA NLIN 
GE LES VALEURS PAR 
539 STA INCL 
Ts 
540 LDA CTXTPTR) ,Y 
541 CMP #$0 
542 BEGQ AUTOFIN 
543 CMP ##$2C 
544 BEQ CALINC 
545 JSR FRMNUM 
ET RANGEMENT DU NO 
546 JSR GETADR 
GNE 
547 LDA LINNUM 
548 STA NLIN 
549 LDA LINNUM+1 
550 STA NLIN+1 
551 CALINC LOY ##$0 
552 INC TXTPTR 
553 BNE )>2 
554 INC TXTPTR+1 
Pom's n° 17 


; ON SOR 


SAISIE DES PA 


; $00 E 


; DEBLOGQ 
; ROUTI 
3 "PLAN 


; PAR H 


;ON POS 
3 ON RAN 


: DEFAU 


; CALCUL 


s-DE'-EI 


595 
SSé 
597 
558 
559 
560 


Séi 
Sé2 
9563 
564 
SéS 
Jéé 
567 
568 
567 


570 


571 
572 
573 
574 
575 
S7é 
577 
578 


979 
580 
sel 


582 


563 
584 
585 
586 
587 


588 
589 
590 
5971 

5972 
593 
594 
595 
59é 
597 
578 
599 
é00 


éai 


é02 
603 
é04 
605 
é0é 
607 
é08 


609 
é10 
éii 
é12 


613 


614 
615 


2 LDA CTXTPTR),Y 
CMP ##$0 
BEQ AUTOFIN 
CMP ##$2C 
BEQ AUTOFIN 
JSR FRMNUM 
DE L'INCREMENT. 
JSR GETADR 
LDA LINNUM 
ORA LINNUM+1 
REG AUTOFIN 
LDA LINNUM 
STA INCL 
LDA LINNUM+1 
STA INCL+1 
AUTOFIN LDA #$FF 
DES FLAGS ET SORTIE 
STA AUTOFL 
SSAGE. 
ASL FLPR 
LDA #HNUL 
STA ALP 
LDA NUL 
STA ALP+1 
JMF PMES 


S 
; 
NUM1 CLC 
LDA NLIN 
NOUVEAU NO DE LIGNE 
ADC INCL 
NTIER 2 OCTETS. 
STA NLIN 
LDA NLIN+1 
ADC INCL+1 
STA NLIN+1 
NUMZ LDA ##01 
EN FLOTTANT, 
LDY #$00 
JSR GIVAYF 
JSR MOVAF 
LDY NLIN+1 
STY LINNUM+1 
JSR SNGFLT 
JSR FMULTT 
JSR MOVAF 
LOY NLIN 
STY LINNUM 
JSR SNGFLT 
JSR FADDT 
JSR FOUT 
TILISER LA ROUTINE 
STA ALP 
VERSION EN CHAINE. 
STY ALP+1 
LDA #$FF 
STA AUTOSOR 
LDY ##0 
+4 LDA (ALP) ,Y 
BEQ >2 
ORA #$80 
O. DES CHIFFRES EN 
STA (ALP) ,Y 
NEGATIF. 
INY 
JMP «1 
+2 LDA H$AO 
MINE PAR UN BLANC. 
STA (ALP) ,Y 
T PLUS JOLI'!!1). 
INY 
TYA 


; CALCUL 


; 
;=NUMEROTATION LIGNES: SORTIE NUMERO 


: CALCUL 


3; EN E 


; CALCUL 





3; POUR U 


3DE CON 
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été PHâ 631 INY 








é17 JER FNDLIN iLA LIG 632 TYA 
NE EXISTE ELLE 7? 633 PHA 
618 ECC 3 634 °3 PLA 
619 LDA ##$0 OUI ,0 635 TAY 
N ANNULE TOUT, 636 LDA ##$0 
é20 STA AUTOFL 637 STA CALP),Y 
é21 STA AUTOSOR 638 STA CPTC 
622 PLA 639 JUMP PMES ;ON SOR 
s2s TAY T LE NUMERO PAR LA 
éZz4 LDA ##587 ; ON F 640 ; VOIE 
AIT COUINER HABITUELLE. 
625 STA (ALP) ,Y ;ET ON é41 ; 
TERMINE PAR CTRL X. 642 ; 
is TÈPr 643 ;AU REVOIR LES PETITS AMIS,ET À BIEN 
627 STA CALP),Y TOT 
é2€e INY 644 ; 
62? LDA ##$98 645 LONGUEUR =  *-ACCES 
630 STA (ALP),Y é4é END 
ES SE RE PR EEE ES 
CLAVIER 2 E 3980- A9 87 85 FD 81 FC 80 04 2898- 88 D0 02 Eé 89 B1 88 C9 
8988- 86 60 A9 00 80 08 86 20 88A40- 00 FO 1A C? 2C F0 16 20 
8600- 4C 78 87 00 00 00 00 00 89Co- F0 89 AD 08 86 F0 1F 06 8BAg- 67 DO 20 52 E7 AS 50 05 
87Fé.8C50 89C8- FE 38 66 FE A9 00 8D 09 g880- 51 FO OA AS 50 80 05 86 
89D0- 86 A8 Bi FC DO 03 4C 63 gB88- A5 51 80 06 86 A9 FF 8D 
87Fé- 00 A0 8908- 89 AC 09 84 81 FC FO 09 88C0- 07 86 0E 0E 86 A9 6F 85 
87F8- Ai A2 A3 A4 AS A6 A7 A6 89E0- 8D 0À 86 EE 09 86 4C 63 gBcg- FC A9 88 85 FD 4C C7 89 
89E8- 89 06 FE dé FE 4C D9 88 8800- 18 AD 03 86 60 05 86 8D 
ne RAT y A 89F0- AS 00 80 0B 86 AD 0A 86 8808- 03 86 AD 04 86 6D Dé 86 
8808- Bi 82 B3 B4 BS Bé B7 B8 se 
8810- 89 BA 88 BC BD BE BF CO 89F8- C9? DB 80 0D C? Ci 80 0A 8BE0- 80 04 86 A9 01 A0 00 20 
g818- C1 C2 C3 C4 CS Cé C7 C8 3400- C9 84 80 05 C? 80 En 80 8BEs- F2 E2 20 63 EB AC 04 86 
: FO- 84 51 20 01 E3 20 82 E9 
8820- B5 B1 B2 83 80 CE Bé DO 8A08- 18 60 E9 Ci OA 0A OA 69 88 
g828- Di D2 D3 D4 B4 Dé D7 D8 8A10- 2F 85 FC A9 86 67 00 85 g8F9- 20 63 EB AC 03 86 84 50 
8830- D9 DA DB DC DD DE DF EO 8A18- FD 0E 08 86 38 4E 0B 86 8C00- 20 01 E3 20 C1 E7 20 34 
8838- E1 E2 E3 E4 ES Eé E7 E8 8A20- 60 E9 B0O OA 0À OA 8D é6A gco8- ED 85 FC 84 FD A9 FF 80 
8840- 85 B1 82 B3 B0O EE Bé6 F0 8428- 88 0A 60 éA 88 67 FF 85 8C10- 08 86 A0 00 81 FC F0 08 
8848- F1 F2 F3 F4 B4 Fé F7 F8 8430- FC A9 86 69 00 85 FD 4€ 8C18- 09 80 91 FC C8 4C 14 8C 
g850- F9 FA DO D2 CF C7 D2 Ci eA38- 08 86 38 2E 08 86 60 AD 2C20- A? A0 91 FC C8 98 48 20 
8858- CD CD CS A0 BA A0 00 A0 8A40- 0A 86 C9 DO FO 54 C9 CE 8C23- iA Dé 90 19 A9 00 2D 07 
g860- Ci Cé Cé CS C3 D4 CS A0 8A48- FO 07 C9 Ci FO 12 4C 63 8C30- 86 8D 08 86 68 A8 A9 87 
8268- Ci A0 00 A0 A0 98 00 A0 8A50- 89 A9 FF 85 FF A7 74 85 8C38- 91 FC C8 91 FC C8 A9 98 
8870- Ci DS D4 CF CE D5 CD A0 8A58- FC A9 88 85 FD 4C C7 89 8C40- 91 FC C8 98 48 68 AB A7 
8878- 98 00 C2 CC CF C3 A0 CE gA6o- A9 00 85 FF A9 8C 85 FC gC48- 00 91 FC 8D 00 86 4C C7 
g880- DS CD CS D2 C9 D1 DS C5 gA6B- A9 88 85 FD 4C C7 89 A9 8cso- 89 
e888- A0 A0 98 00 C3 CC Ci Dé 8A70- 00 90 11 sé 5 + . a 
8890- C9 CS D2 AO Ci CC DO C8 gA78- 88 30 08 B0 1! 
889g- Ci C2 CS D4 C9? DI DS CS 8A930- 4C 77 8A 4C D? 88 AD 0A CLAVIER 2 + 
88A0- 98 00 75 95 95 95 95 95 8A8e- 86 80 éA 88 DE 0E 86 A9 
geag- 95 95 95 95 00 88 88 88 8AS0- 5F 85 FC A9 88 85 FD 4C gé00- 4C 8C 8? 00 00 00 00 00 
8880- 88 56 98 98 88 88 88 88 8A98- C7 89 A9 52 85 FC A9 88 8700.8C50 
esee- 58 88 68 68 88 e8 88 88 gAn0- 85 FD A9 80 80 0E 86 A9 
e8co- 88 88 88 688 88 88 00 20 gAAg- 00 8D OF 86 4C C7 89 AD 8?D0- 00 A0 Ai | 
g8ce- 4A FF 24 FE 10 03 4C D9 8AB0- 0A 86 C9 9B FO CD C9 98 87E0- A2 A3 A4 A5 Ad A7 AB A9 
88D0- 89 2C 0C 86 10 03 20 EA gABS8- FO C9 C7? 8D DO 03 4C 43 82E8- AA AB CS AD AE AF 80 BI 
e808- 03 0E OC 86 38 6E 0C 86 gACo- 88 2C 10 86 30 24 C7 88 87F0- B2 83 B4 85 86 B7 88 B? 
88E0- EE 00 86 2C 10 CO 2C 07 8ACS8- DO 08 ÀE OF 86 FO B4 CE g?Fe- BA 88 BC 8D BE 8F CO C1 
8RE8- 86 10 11 AD OA 86 C9 98 8ADO- OF 8é 4C 63 89 C9? 95 FO 8800 C2 C3 C4 C5 Cé C7 C8 8S 
g8F0- D0 03 4C E3 88 C? 80 DO 8ADS- 06 AE OF 86 90 11 86 EE 8808- Bi 82 B3 50 CE Bé DO DI 
88F8- 03 4C 00 88 2C 00 CO 10 SAE0- OF 86 A2 18 EC OF 86 970 9810- D2 D3 D4 B4 Dé D7 DS D? 
9900- F8 2C 62 CO 08 AD 61 CO BAEB- Eé 4C 63 89 20 F0 89 AE 8818- DA DB DC DD DE DF E0 El 
2908- 29 80 AA 68 0A 8A 69 00 8AF0- OF 86 AD 0B 86 FO 8C 2C 3020- E2 E3 Ed ES Eé E7 E8 85 
8910- 80 10 86 AE 00 CO 8E 0A 8AF8- 08 86 10 09 E0 08 30 02 c828- 81 82 83 80 EE Bé FO FI 
g918- 86 E0 FF D0 0B CE 0D 84 8800- A2 07 4C 6F 84 E0 18 30 3830- F2 F3 F4 B4 Fé F7 F8 F9 
8920- DO 03 EE 00 86 4C 29 88 g802- 02 A2 17 4C 6F 8A 2C 10 8838- FA DO D2 CF C7 D2 C1 CD 
8928- A9 00 80 0D 86 AD 10 86 8810- 86 30 0B A? A2 85 FC A9 8840- CD CS A0 EA A0 00 A0 Ci 
9930- E0 89 D0 03 4C 0E 88 2C 8B12- 88 85 FD 4C C7 89 A9 BC ge48- Cé Cé CS C3 D4 CS A0 C1 
2938- 0E 86 10 03 4C AF 8A 0A 8820- 35 FC A9 88 85 FD 4C C7 Se50- A0 00 A0 A0 98 00 A0 C1 
8940- 80 79 4A 4A B0O 2F 24 FF 2829- 89 38 A9 Cé ED 0D 86 85 8858- DS Da CF CE D5 CD A0 ?8 
3948- 10 03 20 9€ 89 AD 0A 86 8830- FC A9 88 E9 00 85 FD 38 Seé0- 00 C2 CC CF C3 A0 CE DS 
3950- C7 80 00 0A 2C 08 86 10 8838- A9 00 ED 0D 86 8D 00 86 S868- CD CS DZ C? DI DS CS A0 
3958- 05 A9 00 8D 07 86 A9 00 8840- 4C C7 89 AE OF 86 A9 00 8870- A0 98 00 C3 CC Ci Dé C9 
8960- 80 08 86 EE 00 86 0E OC 8848- 90 11 8é ES 90 11 26 CA 8878- CS 02 A0 Ci CC DO C8 Ci 
8968- 36 20 3F FF 91 28 AD 0 8850- 80 04 86 80 06 86 A8 CA 9680- C2 CS D4 C9 DI DS CS 98 
8970- 8é 2C 10 CO 40 4C 3F 8A 8858- 30 0B 80 11 86 29 7F 90 Se8a- 00 #5 95 95 95 95 95 95 
8978- A9 00 80 0B 86 85 FE 85 8860- 11 86 CA 10 F5 0E 0E 86 3890- 95 95 95 00 88 88 68 88 
8980- FF 8D 0E 86 80 0C 86 80 8868- 2C 10 CO A9 11 85 88 A9 Se6- 88 68 98 88 86 88 88 88 
8988- 07 86 A9 00 85 73 A9 86 8870- 86 85 89 A9 0À 8D 03 S%é Sea0- 88 88 68 8e es 88 88 8 
8990- 85 74 En A9 C7 8D 55 AA 8878- 80 05 86 81 88 C7 00 FO SeA8- 99 88 88 88 88 00 20 4A 
8998- A9 88 80 56 AA 60 AD DA 8880- 3C C? 2C F0 10 29 67 DD S680- FF 24 FE 10 03 4C Fé 89 
89A0- 86 C9 FB 80 14 C9 AO 90 8888- 20 52 E7 AS 50 80 03 86 ges- 2C 0C 86 10 03 20 EA 03 
89A8- 10 E9 A0 A8 A9 F7 85 FC 8890- A5 51 80 04 86 A0 00 Eé 88C0- 0E OC 86 38 6E 0C 86 EE 
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88C8- 0D 846 2C 10 CO 2C 97 84 89F8- 86 81 FC F0 09 80 0OÀ 86 88289- 89 38 A9 AD ED 0D 86 85 
8800- 10 11 AD 04 86 C9 98 DO 8A00- EE 09 86 4C 77 89 06 FE 8830- FC A9 88 E9 00 85 FD 38 
8808- 03 4C E3 88 C7 80 DO 03 8A08- 46 FE 4C CO 88 A9 90 80 8838- A9 00 ED CD 94 8D 0D 846 
88E0- 4C DO 88 2C 00 CO 10 F8 8A10- 0B 86 AD 0À 86 C9 DB 80 amdo- 4C DR &9 AE OF 8é A9 00 
88E8- ÀE 00 CO 8E 0À 86 A7 00 8A18- 04 C9 Ci B0 O1 60 E9 C1 8848- 90 11 86 E8 90 11 86 CA 
88F0- 80 0D 86 80 10 86 E0 98 8420- 0À OA 0À 04 48 A9 00 69 8850- 80 04 86 8D Dé 86 A8 CA 
88F8- B0 48 E0 80 F0 47 EO 83 8A28- 86 85 FD 18 68 49 2F 85 8858- 30 0B BD 11 86 29 7F 90 
8700- F0 43 E0 88 F0 3F EO 80 8430- FC AS FD 67 00 85 FD 0€ 8B60- 11 86 CA 10 FS 0E 0€ 86 
8908- F0 38 E0 ?S F0 37 E0 978 8A38- 0B 86 38 6E 08 86 60 AD 8868- 2C 10 CO A9 11 85 B8 A9 
8910- F0 33 E0 FA DO 16 A9 CE 8A440- 0A 846 C9 DO F0 54 C9 CE 8870- 86 85 B9 A9 0À 8D 03 86 
8918- 8D 0A 86 24 FF 10 05 A9 8448- F0 07 C9 C1 FO 12 4C 77 8878- 80 05 86 8i 88 C9 00 FO 
8920- Ci 80 0À 84 A9 C1 80 10 8A50- 89 A9 FF 85 FF A9 61 85 8880- 3C C9 2C FO 10 20 67 D0 
8928- 84 4C 45 89 E0 82 00 08 8A58- FC A9 88 85 FD 4C 0B 89 8888- 20 52 E7 A5 50 8D 03 84 
8730- A9 DO 80 0 86 4C 24 89 8460- À9 00 85 FF A9 73 85 FC 8890- AS 51 80 04 86 A0 00 Eé 
8938- A9 80 8D 10 86 44 18 40 BA6S- A9 88 85 FD 4C DB 89 A9 8B98- B8 D0 02 Eé B9 B1 88 C9? 
8740- 0 86 8D 0 86 AD 10 86 8470- 00 9D 11 86 E8 8A A8 CA 8BA0- 00 FO 1A C9 2C FO 16 20 
8948- AE 0A 84 2C 0OE 86 10 03 8478- 88 30 0B B0 11 946 91 FC 88A8- 67 DD 20 52 E7 A5 S0 05 
8750- 4C ÀAF 8A 04 B0O 78 4A 44 8A80- 4C 77 8A 4C CO 88 AD 0À 8880- 51 FO 0À A5 50 8D 05 8é 
8958- B0 2F 24 FF 10 03 20 82 S8488- 84 80 51 88 0E 0E 86 A9 88B8- AS 51 8D 06 86 A9 FF 80 
8960- 39 AD 0A 86 C9 8D DO 0A 8490- 46 85 FC A9 88 85 FO 4C 88C0- 07 86 0E 0E 86 A9 56 85 
Sr40" 20 04:86 20 08 A7 "00 20 8A?8- DB 87 A9 39 85 FC A? 88 8BC8- FC A9 88 85 FD 4C DB 89 
8970- 07 86 A9 00 80 08 86 EE BAAO- 85 FD A9 80 8D 0E 86 A? 88D0- 18 AD 03 86 6D 05 86 80 
8978- 00 86 0E OC 86 20 3F FF 8AAS- 00 8D 0F 86 4C DB 89 AD 88D08- 03 86 AD 04 Ré 6D Dé 86 
8980- 91 28 AD 0A 86 2C 10 C0 SABO- OA 86 C? 98 FO CD C? 98 8BE0- 80 04 86 A9 01 A0 00 20 
8988- 60 4C 3F 8A A9 00 8D 08 8AB8- F0 C9 C9 80 D0 03 4C 43 aBEe- F2 E2 20 63 EB AC 04 8gé 
8990- 86 85 FE 85 FF 80 0E 84 8AC0- 88 2C 10 84 30 26 C9 88 eBF0- 84 51 20 01 E3 20 82 E9 
89?8- 80 0C 86 80 07 86 A7 00 8AC8- DO 0B ÀE OF 86 F0 B4 CE g8F8- 20 63 EB AC 03 86 84 50 
8940- 85 73 A9 86 85 74 EA A9 SADO- OF 86 4C 77 89 C9 95 F0 @C00- 20 01 E3 20 Ci E7 20 34 
89A8- AE 80 55 AA A9 88 8D Sé 8AD8- 06 AE 0F 86 90 11 86 EE 8C08- ED 85 FC 84 FD A9 FF 80 
87B0- AA 60 AD 0À 86 C9 FB 80 SAEOU- OF 86 A2 18 EC OF 86 90 8C10- 08 86 A0 00 81 FC FO 08 
89B8- 14 C9 A0 90 10 E9 À0 A8 SAE8- Eé 4C 77 89 20 0OD 8À AE 8C18- 09 80 91 FC C8 4C 14 8C 
89C0- A9 DE 85 FC A9 87 85 FD SAFO- OF 86 AD 0B 86 F0 8C 2C 8C20- A9 A0 91 FC C8 98 48 20 
89C8- B1 FC 80 0A 86 60 A9 00 8AF8- 08 86 10 09 E0 10 30 02 8C28- 1A Dé 90 19 A9 00 8D 07 
89D0- 8D 08 86 20 0D 84 AD 08 8800- A2 OF 4C 6F 8A E0 18 30 8C30- 86 20 08 86 68 A8 A9 87 
8908- 86 F0 28 06 FE 38 66 FE 8808- 02 A2 17 4C 6F SA 2C 10 8C38- 91 FC C8 91 FC C8 A9 98 
87E0- A9 00 80 09 86 A8 B1 FC 8810- 86 30 0B A9 89 85 FC A9 8C40- 91 FC C8 98 48 68 A8 A9 
89E8- DO 0C 38 AD 0A 86 E9 40 8818- 88 95 FD 4C DB 89 A9 43 8C48- 00 91 FC 8D 0D 86 4C DB 
87F0- 80 0 86 4C 77 89 AC 09 8820- 85 FC A9 88 85 FD 4C D8 8cso- 89 





Visualisation d’une Distribution Normale 


Daniel Hirst 


Dans de très nombreuses situations, 
on peut observer que la valeur d’une 
variable quelconque est fonction 
d'un grand nombre d'évènements 


courbe de Gauss et suit l'équation : 


2,2 
y = l Le” (rm) /2s 


déplace de façon aléatoire soit à gau- 
che soit à droite, un peu comme un 
flocon de neige qui tombe. Une fois 
arrivés à la ligne horizontale, les 


élémentaires dont les valeurs indivi- s # 2Pi points tombent jusqu'en bas de 
duelles sont incertaines. D matt l'écran où ils s’entassent progressive- 
PAC AA mené AnE Eau ment. Un petit trait horizontal indique 

ÿ ilisé ’écart- : à di l'écart ne z 
L'exemple le plus couramment utilisé l'écart-type (cest à dire l'éca à chaque instant la valeur moyenne 


est celui de la longueur d’une queue 
de file d'attente à un guichet. En 
supposant que le temps de traite- 
ment de chaque client par l'employé 
est constant, la longueur de la queue 
dépend du rythme d'arrivée des nou- 
veaux clients: or, le temps écoulé 
entre deux arrivées est une variable 
aléatoire. On démontre que, pour un 
nombre infini d'évènements élémen- 
taires, la fonction globale suit une 
distribution dite ‘’normale” dont la 


moyen par rapport à la moyenne), et 
pi=3,14159.. bien sûr. 


Le programme NORM-DISTR pré- 
sente une animation où un grand 
nombre de petites variations aléatoi- 
res et indépendantes peuvent s'accu- 
muler et s’annuler mutuellement 
pour aboutir à une distribution de ce 


type. 


Chaque point commence en haut et 
au milieu de l'écran et tombe jusqu'à 


de la distribution. 


Pour obtenir la valeur chiffrée de la 
moyenne et de l’écart-type, il suffit à 
tout moment d'appuyer sur la touche 
’S’ (statistiques). On peut ensuite soit 
revenir à la visualisation, soit deman- 
der l'affichage de la courbe normale. 
La touche ’Q' permet d'arrêter la vi- 
sualisation. Le programme est assez 
lent et gagne beaucoup à être 
compilé, par Expediter Il, par exem- 





représentation graphique est appelée la ligne horizontale. En tombant il se ple. É 
1 REM VISUALISATION D'UNE 100 REM -------- TABLEAUX 

2 REM DISTRIEUTIION NORMALE 110 DIM HI(Z797) 

2 REM ###D,J.HIRST 197284x%x 120 DIM X{NP) 

5 REM ======zzzzzzzzz=s-z=22z=- 13a DIM YÉNF) 

é  REM 197 GOTO 1010: REM ----- >DEBUT 

7 REM ----REVISE 7-JUN-84 ---- ZGÙU REM ------ £/FR INCR 

8 REM 210 IA = INT © RMD (1) + .5) *# 4 - 2 
10° REM:.. === CONSTANTES 270 X2 = X1 + If 

20 NP = 7 230 Y2 = Yi + 1 

30 NT = SOû 259  RETULPN 

40 NY = 140 300 REM ------ S/R PLOT 

30 NC = NT # NY / NP 310 HCOLOR= 0: HPLOT X1,Y1 


à 

















3229 IF X2 = à Ssû GÛSUE Si: REM <---> HGR Pi 
32 IF x2 £ = 279 870 IF 48 = "O" OR "As" = "QUI" THEN GO 
240 HCCOLOF= Es Te ZUE éiü: REMH {——} 
359 RETURN COURBE NORMALE 
AGÙ  REM ------ LR YISTO 357 RETURN 
JI0 HICKI) = HICXI: + 1 1000 SEM ----- FÉESENTATI ON 
420 Y2 = 191 - HItX1) 1010 HOME : UTAB 12: Sue 
430 K2 = KI:INV = NU + 1 1020 HTAE 7: PRINT "UISUALISATION D'UNE 
440 SX = 5x + X1 " 
4Sÿ £C SC + X1 # X1 1020 HTAB 7: PRINT "OISTRIBUTION NORMALE 
450 X{KH)I = 140:Y{K) = 0 Ms NORMAL 
70 MX = EX NU 1040 PRINT : PRINT : FRINT : PRINT " T 
420 HCOLOR= O0: HPLOT 0,191 TO 279,191 APEZ ‘25° POUR LES STATISTIQUES" 
470 HCOLOP= 2: HPLOT MX = 1,19! TO MX + 10S0 PRINT * ‘Q° POUR S'ARRETER 
1 151 “ 
497 RETURN 1060 PRINT : PRINT : PRINT : HTAE 10: PR 
SOQ REM -----2/f HGR Fi INT "FAIRE RETURN "3: GET $ 
10 POKE 49232,0: POKE 4?7234,0: POKE 492 1100 REM --------- AFFICHE CADRE 
Sé.0: POKE 49239,û 1110 HGR : POKE 47234,0 
520 RETURN 1120 HCOLOR= 3: HPLOT 140,0 TO 140,MY 
SG0 REM ------20/R COUREE NORMALE 1120 HELOT O,NY TO 27P,NY 
si0 C1 = 0.278792 / ET 1200  REM = INITIALISATIONS 
629 C2 = - 1 + ET + ET 1210 FOR I = 1 TO NP:X(I) = 140:Y{I) = 
430  HCOLOR= 3 - 1: NEXT I 
éd FOR X2 ù TO 1220 FOR I = 1 TO 2FP:HI(I)D = DO: NEXT 
éS0 V2 = C1 *# EXP — MX) # {K2 - MX) 1230 HU = 0 
# C2) 1240 SX = 0:50 = 0 
Sé0 Y2 = Y2 # MU # 5 1300 REM -----—- PROGRAMME PRINCIPAL 
470  HPLOT X2,190 - Y2 1210 FOR I = i TO NC 
6280 MNEXT X2 1315 IF I € = NP THEN Y(I) = 0 
679  RETUFM 1320 FOR J = 1 TO NY / NP 
FO0 REM ------ ER TOUCHE CLAUIER 1225 F08 K = 1 TO NF 
F10 IF TC = 209 THEN GOTO 2019 13520 TC = PEEK € - 14254) 
Fzû IF TD = 211 THEN GOSUR Siû: R©M &— 1325 IF TC > 127 THEN PFOKE - 143468,0: 
—-} STATISTIQUES ‘ GOSUE 710: REM {----}) TOUCHE 
775  RETUFH CLAVIER 
200 REM ----- SFR STATISTIQUES 1290 IF Y{K) € O0 THEN 1385 
S10 IF MH 2 THEN  FETUEN 1345 X1 = XCKD:Y1 = YCK) 
215 TEXT 1350 GOSUS 210: REM ---}INCR 
320 MX = & M 1355 XCK) = X2:YIK) = Y2 
225 MA = INT MX # 1000 + ,S) / 1000 = 1 1260 IF Y2Z } NY THEN GOSUB 410: REM _ 
40 ---} HISTO 
220 ET = SUR (SC - SX « Ok / NU) / MU 1370 GOSUB 210: REM ----)}PLOT 
- 12) 1380 NEXT K 
835 Ef = INT CET # 1000 + .5) / 1000 138S NEXT J 
840 PRINT : PRINT " N = "3;NU: PF 1370 ONEXT I 
INT " MOYENNE = ";Mô: PRINT "ECA 2000 REM ---------- FIN 
FT TYFE = ";Eñ: PRINT : PRINT 2010 GOSUR 810: REM ---) STATISTIQUES 
850 INPUT "UOULEZ-VOUS LA COURBE NORMALE 2020 GET À$ 
? “48 2020 TEXT 
Max : Le moniteur étendu 
Jacques Supernant Apple I, //e, //c 






Le moniteur autorise un contrôle de l'exécution des 
routines en /8ngsge machine. 











* Un mode Trace et Pas à Pas très évolués et 
sélectifs sont complétés par un accès direct 
aux registres du 6502 (ou 55CO0E1 ! est ainsi 
Possible de les initisliser à son gré ou à l'aide de /a 
routine de hasard. 

* La gestion des fenêtres d'écran simplifie le 
mode Trace. 

* Une routine permet /s recherche de suites 
d'octets. 

* Un mini-assembleur très souple fsit partie de 
NMIAX. 

* Une ligne de commande peut devenir une 
boucle svec l'ordre JUMAP. 

Les fichiers source sont sur la disquette. 


Disquette et documentation : 150,00 F TIC franco 
(bon de commande page 74). 
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Transformez votre Apple //e en Apple II. 


Comment tourner 
l’incompatibilité 
entre II et //e. 


L'Apple //e diffère de son prédéces- 
seur par des modifications matérielles 
(carte langage intégrée et RESET dif- 
férent), mais il comporte également 
des modifications du système d'ex- 
ploitation de base, principalement en 
ce qui concerne les routines d’en- 
trées / sorties d’un caractère. Si l’on 
étudie attentivement le listing de la 
ROM moniteur, fourni dans le.ma- 
nuel de référence de l'Apple //e, on 
remarque que l'assemblage condi- 
tinnnel se trouve en 9 endroits du 
moniteur, allant de $FA75 à $FDS83, 
et donne un total de 137 octets de 
différence entre le moniteur //e et 
celui du II. 

Les logiciels écrits pour l'Apple II 
tournent sur le //e s'ils utilisent les 
sous-programmes d'entrées / sorties 
standards (COUT, RDKEY, KEYIN, 
GETLN). Malheureusement, il sem- 
blerait que certains d’entre eux ne 
puissent tourner sur le //e, c'est le cas 
de l'APP-L-—ISP. On peut envisager 
de modifier à la main, dans l’inter- 
préteur LISP, les appels aux fonc- 
tions d'entrées / sorties, mais il faut 
alors analyser quelques 6 Ko de lan- 
gage machine pour un résultat qui 
n'est ni garanti, ni général. 

La solution retenue consiste à utiliser 
la mémoire à bancs commutés (ex- 
carte langage) pour v installer un 
moniteur d'Apple Il et à commuter la 
dite mémoire pour fonctionner en 
émulation d’un II. 


Quelques remarques 


Ceci est donc valable pour tout pro- 
gramme n'utilisant pas la carte lan- 
gage, par contre, si l’on souhaite que 
le RESET ne détruise pas le mode 
émulation, il faut se passer de l’affi- 
chage 80 colonnes. 

Si vous n'avez pas la disquette d’ac- 
compagnement, il faut introduire les 
modifications du moniteur I| puis 
sauvegarder le nouveau moniteur 
ainsi obtenu pour un appel ultérieur 
dans un programme. 


Modification du 
moniteur 


La séquence des opérations est la 

suivante : 

e CALL-151 : pour passer en moni- 
teur. 

e DO00<DO000.FFFFM: copie le 
moniteur en RAM (à l'initialisation, 
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l'Apple lit en ROM et écrit dans le 
second banc de RAM). 

e FA75: AD 5D CO .….: introduire 
les 137 octets modifiés d’après la 
liste ci-dessous. 


FA75: AD 5D CO AD 5F C0 
FB51: A9 28 85 21 
FBA3: 0C 


FBB3: EA EA EA EA EA EA EA EA 
FBBB: EA EA EA EA EA 


FC42: À4 24 ÀS 25 48 20 

FC48: 24 FC 20 9E FC A0 00 68 
FC50: 69 00 CS 23 90 F0 B0O CA 
FCS8: ÀS 22 85 25 A0 00 84 24 
FCé0: F0 Ed 


FC70: ÀS 22 48 20 24 FC AS 28 
FC78: 85 2A AS 29 85 2B A4 21 
FC80: 88 68 69 01 C5 23 B0O 00 
FC88: 48 20 24 FC Bi 28 91 2A 
FC90: 88 10 F9 30 El A0 00 20 
FC98: 9E FC B0O 84 A4 24 A9 A0 
FCAO: 91 28 C8 C4 21 90 F9 60 


FDIB: Eé 4E DO 02 Eé 

FD20: 4F 2C 00 CO 10 F5 91 28 
FD28: AD 00 CO 2C 10 CO 60 20 
FD31: 0C 


FD42: 85 32 


FD83: DF 


e C080 puis RETURN : la lecture de 
cette adresse commute le second 
banc de RAM en lecture; ainsi, 
vous êtes en présence d’un II re- 
connaissable à son curseur plein. 

e BSAVE APPLE 
2+.OBJ,A$FA75,L$30F : pour 
conserver sur disque ces modifica- 
tions. 

e ou BSAVE APPLE 
2+.0BJ,A$FA7S L$2CEF : pour 
garder l'usage des minuscules du 
lle 

e 3D0G si vous voulez rester en II, 
ou bien CTRL-RESET si vous 
voulez retrouver votre //e. 


Il ne reste plus qu'à répéter la même 
chose dans un programme pour re- 
trouver, à volonté, un Apple Il. 


Programme de 


transformation 
Pour ce faire, nous utilisons le sous- 
programme, bien connu, de 


4% 


ETa > 


François Sermier 


S.H.LAM, cité dans Pom's 2, entre 
autres, pour passer une commande 
au moniteur à partir d’un programme 
Basic. 

— Ligne 40 : on reconnaît la recopie 
du moniteur en RAM. 

— Ligne 50: les modifications sont 
introduites à partir du disque. N'ou- 
bliez pas que vous devez être dans la 
même configuration qu'à l’initialisa- 
tion : lecture en ROM, écriture en 
RAM. En cas de doute, faire aupara- 
vant en mode immédiat: PRINT 


PEEK (49281) qui commute en 
mode normal. 
— Ligne 60: modification du 


RESET. L'Apple //e commute auto- 
matiquement en mode normal (lec- 
ture ROM, écriture deuxième banc 
RAM) lors d'un RESET, il faut donc 
le réexpédier en lecture / écriture sur 
la RAM si l’on veut rester en IL C'est 
le rôle du petit sous-programme en 
$9DCS : 

LDA $C083 

LDA $C083 

RTS 


Lors d'un RESET, il y a saut au 
point d'entrée à chaud du DOS en 
$9DBF. Nous l'avons modifié (nor- 
malement, il teste quel Basic est actif 
et où il est situé) pour qu'il exécute 
le sous-programme en $9DC5, puis 
reprenne le déroulement normal du 
Warmstart Basic Applesoft en 
$9DD0. 

$9DBF: JSR $9DC5 

$9DC2: JMP $9DDO 


Enfin, toujours en ligne 60, 9DC5G, 
passé par la routine S.H.LAM, 
commute la mémoire vive en lecture 
/ écriture et l’on est de nouveau en 
présence d’un Apple Il. Pour retour- 
ner sur le //e il suffit de faire : 

X = PEEK (49281). 

De la même manière, pour retrouver 
le II on fera : 

X = PEEK (—-16256) 


Au lecteur de substituer au END de 
la ligne 70 toute instruction à sa 
convenance, permettant le chaïînage 
ou le chargement du programme si 
longtemps convoité, afin de disposer 
du programme de ‘’boot” lançant un 
/le sur un logiciel jusqu'alors réservé 
à son petit frère. 

A titre d'exemple, pour 
l'APP-L-ISP, le HELLO compren- 
dra les deux instructions suivantes : 
BLOAD SLIST et BRUN LISP- 
CODE. 








JLIET 70 END 
S0 REM ROUTINE S.H.LAM (POM’S [2) 


10 PRINT CHR$ (21): HOME 140  REM 

20 PRINT : PRINT " PATIENCE, JE ME TRANS 170 Y$ = Y$ + " N D9CéG" 
FORME EN" 180 FOR I = 1 TO LEN (Y#) 

30 PRINT : HTABR 15: INUERSE : PRINT "APP 190 POKE S11 + I, ASC © MIDS (CY#,1,1)) + 
LE 2+": NORMAL 128 

40 Y$ = "DOQO<OOGQO.FFFFM": GOSUB 150 200 NEXT : FOKE 72,0: CALL - 144 

S0 PRINT CHP$ (4; ;"BLOAD APPLE 2+.0BJ" 210 RETURN 

é0 #5 = "YO6F:20 CS 90 4C DG 7D AD 83 CO 
AC 83 C0 40 N 9DCS6G": GOSUB 150 1PR#HO 





Conversion chiffres-lettres 
François Fleury 


NUM-ALPHA est un programme de e Cent nest jamais précédé de 


conversion de chiffres en lettres de un”. 

toutes sommes supérieures à 1 cen- e Cent et quatre-vingt s'accordent 
time et inférieures à mille milliards de s'ils ne sont suivis d'aucun chiffre. 
francs. e Mille est invariable et n’est pré- 


cédé de rien si le nombre de mil- 
liers est inférieur à deux. 

e On place ‘’de” (millions ou mil- 
liards DE francs) si aucun chiffre 


Ce programme pourra donc être utile 
à tous ceux d’entre vous qui établis- 
sent des factures, pour les collectivi- 
tés publiques, ou des chèques à par- ; 
tir d'une imprimante. Il est constitué ne Suit. 

de deux parties : ® etc. 

— Les lignes 9000 à 9265 contien- La structure est volontairement mo- 
nent la routine de saisie de la somme dulaire (seules des variables Apple- 











en chiffes: soft commençant par Y et Z sont uti- 
— Les lignes 10000 à 10850 effec- lisées) afin de faciliter la fusion de ce 
tuent le formatage en lettres, en te- nr hi sis votre chef-d'oeuvre 
nant compte des diverses particulari- préféré ! 
tés de la langue française, qu'il n’est 
peut-être pas inutile de rappeler : = 
7095 IF YASC(I)D = CHR$ (13) THEN GOTO 9 
235 
5000 REM xx 2026 EEE EEE EE 6 € 9100 GOTO 9020 
9005 REM MODULE DE SAISIE D’UNE SOMME E 7105 IF YASCI) = CHR$ (13) THEN GOTO 9 
N CHIFFRES AU CLAVIER 235 
7010 REM TOUTES LES VARIABLES COMMENCEN 9110 IF YN = 1 THEN GOTO 9220 
T PAR Y 9115 HTAB (I - 1): PRINT YASCI — 1923: IF 
PO1S REM xx 262 26362636 36 6 36 JE DE DE XXE EE YN = 2 THEN GOTO 9215 
9020 CLEAR : HOME : VTAB 3: HTAB 20 9120 HTAB (I - 2): PRINT YA$S(I - 2);: 1F 
9025 INVERSE : PRINT " “3: NORMAL : PR YN = 3 THEN GOTO 9210 
_ INT. * °: 7125 HTAB (I - 4): PRINT YAS(I - 4)3:: IF 
79030 OINVERSE : PRINT "“ “51: NORMAL : PR YN = 4 THEN GOTO 9205 
INT * *; 9130 HTAB (I - 5): PRINT YASCI — 5):;: IF 
79035 INVERSE : PRINT * “3: NORMAL : PR YN = 5 THEN GOTO 9200 
INT * *; 9135 HTAB (I - 6): PRINT YA$S(I - 6);: IF 
79040 OINVERSE : PRINT " “353: NORMAL : PR YN = 6 THEN GOTO 9195 
INT *,"; 9140 HTAB (I - 8): PRINT YAS(I - 8);: IF 
7045 INVERSE : PRINT * ": NORMAL YN = 7 THEN GOTO 9190 
9050 DIM YA$S(50) 9145 HTAB (I - 9): PRINT YAS(I - 9)3;3 IF 
9055 I = 34:YN = 0 YN = 8 THEN GOTO 9185 
79060 VTAB 3: PRINT "TOTAL FACTURE......" 9150 HTAB (I - 10): PRINT YASÇCI — 10) ;: 
?906S5 YBS = YB$S + YAS(I) IF YN = 9 THEN GOTO 97180 
7066 YN = YN + 1 9155 HTAB (I - 12): PRINT YA$(I - 12);: 
59070 IF YN = 123 THEN YAS(I) = CHR$ (13) IF YN = 10 THEN GOTO 9175 
: GOTO 9105 9160 HTAB (I - 13): PRINT YASCI -—- 13):;: 
7075 UTAB 3: HTAB 1! IF YN = 11 THEN GOTO 9170 
7080 GET YA$(I): PRINT YAS(I); 9165 HTAB (I - 14): PRINT YASCI - 14);: 
7085 IF YASCI) = "O" OR YASCI) = "1" OR IF YN = 12 THEN GOTO 9230 
YAS(I) = "2" OR YAS(I) = "3" OR YA 9170 YASCI - 14) = YASCI — 13) 
SCI) = "4" OR YASCI) = *"S" THEN G | 9175 YA$(I - 13) = YASCI - 12) 
OTO 9105 7180 YASCI - 12) = YASC(I — 10) 
9090 IF YASCI) = "é" OR YASCI) = "7" OR 9185 YASCI - 10) = YASC(I — 9) 
YAS(I) = "8" OR YAS(I) = "9" THEN 9190 YABSCI —- 9) = YAS(I - 8) 
GOTO 9105 P19S5 YASCI - 8) = YASCI - 6) 
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FP200 YAB(I —- 6) = YAS(I — S) 
7205 YASCI - 5) = YASCI - 4) 
9210 YASCI —- 4) = YAS(I - 2) 
9215 YASCI - 2) = YASCI —- 1) 
7220 YAS(I —- 1) = YAFS(I) 
9225 Y = POS (1) 
$9230 GOTO 9045 
9235 VTAB 3: HTAB (I + 2): GET YAS(I + 2 
D: IF YASCI + 2) = CHR$ (13) THEN 
PRINT "O0": GOTO 9255 
79240 PRINT YASCI + 2);:YB$ = YB$ + “." + 
YASCI + 2) 
9245 HTAB (I + 3): GET YAS$SCI + 3): IF YA 
SCI + 3) = CHR$ (13) THEN PRINT 
"0": GOTO 9255 
9250 PRINT YAS(I + 3):;::YB$ = YB$ + YAS(I 
+ 3) 
9255 IF YN = 12 THEN GOTO 9263 
9256 IF YN = 13 THEN GOTO 9245 
9260 FOR YT = 0 TO Y - 21: VTAB 3: HTAB 
C20 + YT): PRINT " ": NEXT YT: GOT 
0 9265 
9263 VTAB 3: HTAB 20: PRINT " " 
9265 GOTO 10000 
10000 REM x##X#XXX4XHXXXXXR NH E EX 
10005 REM XXE EELEELLREÉEXÉEX 
10010 REM MODULE DE TRANSFORMATION DE S 
OMME EN CHIFFRES À SOMME EN LETTRE 
S 
10015 REM TOUTES LES VARIABLES COMMENCE 
NT PAR 2 
10020 REM  xxxx3x2# 2402602 26% XXE EE NE 
10025 VTAB 10: HTAB 1: PRINT "CERTIFIEE 
CONFORME ET VERITABLE,LA PRES-ENTE 
FACTURE ARRETEE À LA SOMME DE.... 
10030 2K$ = "C.C.P BORDEAUX NO 123456 " 
10035 2ZT$ = "CENT" 
10040 Z2W$ = "CENTIME" 
10045 ZE$ = "MILLE" 
10050 2F$ = "FRANC" 
10055 2N$ = "MILLION" 
10060 2D$ = “MILLIARD" 
10065 REM ENTREE DE LA CHAINE DE CARA 
CTERE QUI CONSTITUE LE NOMBRE À ET 
UDIER 
10070 ZH$ = Ye$ 
10075 REM NOMBRE ENTIER OÙ AVEC DECIM 
ALE? 
10080 REM CAS PARTICULIER DES NOMBRES D 
E LONGUEUR 21<=2 AVEC OÙ SANS DECI 
MÂLE 
10025 REM À LA SUITE TOUS LES NOMBRES 
SONT AVEC 2 DECIMALES 
10090 21 = LEN (ZH$) 
1009S IF 21 = 2 AND VAL (2H$) > = 107T 
HEN 2H$ = 2H$ + ",00":21 = LEN (2 
H$): GOTO 10119 
10100 IF 21 = 1 AND VAL (2H$) > 0 THEN 
2H$ = 2H$ + ".00":21 = LEN (2ZH#): 
GOTO 10110 
10105 IF Zi = 2 AND VAL (ZHS) > = .10 
THEN 2H$ = 2H$ + "0":21 = LEN (ZH 
$): GOTO 10110 
10110 REM 
10115 IF MID$S (2ZH$,21 - 2,1) = "." THEN 
GOTO 10130 
10120 IF MID$S C2H$,21 - 1,1) = "." THEN 
2H$ = 2H$ + "O":21 = 21 + 1: GOTO 
10130 
10125 HS = ZH$ + ",.U0":21 = 21 + 3 
10130 REM 
10135 REM MILLE MILLION MILLIARD 
10140 REM Z3=PARTIE ENTIERE 


VV Ov I 
Ent) 
ON 


10145 23 = 21 - 3 

19150 IF 23 0 THEN GOTO 10375 

10155 IF 23 0 THEN 24 = 

10160 IF 23 3 THEN 24 

10165 IF 23 6 THEN 24 

10170 IF 23 > 9 THEN 24 

10175 REM ZS=NOMBRE DE CHIFFRES DU GROU 
PE DE 3 LE PLUS À GAUCHE 

10180 25 = 23 - ((24 —- 1) »*x 3):22$ = LEF 

10200 IF 24 = 4 AND MID$ (2ZH$,25 + 1,9) 
= "000000000" AND 2Z > 1 THEN PR 


TS (ZH$,25) 
10185 IF Z4 = 2 AND 22% = "1* THEN PRIN 

INT " "320$ + "S";" ";"DE FRANCS " 
;: GOTO 10375 


T "MILLE “;: GOTO 10260 
10190 2Z = VAL (Z2#): GOSUB 10425 
10195 IF 24 = 4 AND MIDS (2H$,25 + 1,9) 
= "000000000" AND ZZ = 1 THEN PR 
INT " ":;20$;" ";"DE FRANCS “;: GOT 
0 10375 
10205 IF 24 = 3 AND MIDS (2H#$,25 + 1,6) 
= "000000" AND 2Z = 1 THEN PRINT 
" ":2ZN$S;" "3;"DE FRANCS ";: GOTO 1 
0375 
10210 IF Z4 = 3 AND MID$ (2H#,25 + 1,6) 
= "000000" AND ZZ.> 1 THEN PRINT 


“ LL 3: 2NS + L] s" 3 “ “ ; “ DE FRANCS " ; : 
GOTO 10375 
10215 IF 24 = 4 AND 22Z > 1 THEN PRINT 
" 320$ + L S" ; LL LL ; 
10220 IF 24 = 4 AND 22 = { THEN PRINT * 


":2D535" *: 

10225 IF 24 = 3 AND 2Z > 1 THEN PRINT * 
“3 2NS$ + #53" 13 

10230 IF 24 = 3 AND 22 = 1 THEN PRINT * 
"sZNS;" "; 

10235 IF 24 = 2 AND 2Z > 1 THEN PRINT * 
"12E93" “'. 

10240 IF 24 = 1 AND 22Z > 1 THEN PRINT " 
“,:2F$ + Sr a 

10245 IF Z4 = 1 AND ZZ < = i THEN PRIN 

T "Vs 2FSr". "ss ‘ 

10250 IF Z4 = 1 THEN GOTO 10375 

10255 IF 24 = 3 AND MID$S (2ZH$,25 + 1,3) 
= "001" THEN PRINT " ";,2E$;" "3: 


GOTO 10305 
10260 228$ = MIDS (ZH$,25 + 1,3) 
10265 ZZ = VAL (Z28): GOSUB 10425 


10270 IF Z4 = 4 AND Z2 > 1 THEN PRINT “ 
"3 2N# + "S°' +" de 

10275 IF Z4 = 4 AND ZZ = 1 THEN PRINT " 
"32NS ; RE - 

10280 IF Z4 = 3 AND 2Z > O THEN PRINT " 
*"3:2E$3" ". 

10285 IF Z4 = 2 THEN PRINT “ “3;2F$ + "S 
3 , 

10290 IF Z4 = 2 THEN GOTO 10375 

10295 IF Z4 = 1 THEN GOTO 10375 

10300 IF Z4 = 4 AND MID$ (2H#,25 + 4,3) 
= "001" THEN PRINT “ “;2E$;" ";: 
GOTO 10340 

10305 2285 = MID$ (ZH$,25 + 4,3) 

10310 2Z = VAL (2Z#): GOSUB 10425 

10315 IF Z4 = 4 AND 2Z > O THEN PRINT 
"s2E$;" SE 

10320 IF 24 = 3 THEN PRINT " ";2F$ + "S 
, , 

10325 IF 24 = 3 THEN GOTO 10375 

10330 IF 24 = 2 THEN GOTO 10375 

10335 IF 24 = 1 THEN GOTO 10375 

10340 Z2$ = MID$ (ZH#,25 + 7,3) 

10345 ZZ = VAL (22$): GOSUB 10425 

10350 IF 24 = 4 THEN PRINT " ";2F$ + "S 
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10355 
10360 
10345 
10370 
10375 
10380 
10385 
10390 


10395 
10400 


10405 
10410 
10415 
10420 
10425 


10430 
10435 


10440 


10445 


10450 


10455 
10460 
10465 
10470 
10475 
10480 
10485 
10490 
10495 
10500 
10505 
10510 


10515 
10520 
10525 
10530 
10535 
10540 
10545 
10550 
10555 
10560 
10565 
10765 
10770 


10775 


10780 


10785 


10790 
10795 
10800 
10805 
10810 
10815 
10820 


10825 


IF Z4 = 4 THEN GOTO 10375 

IF 24 = 3 THEN GOTO 10375 

IF Z4 = 2 THEN GOTO 10375 

IF Z4 = 1 THEN GOTO 10375 

REM CENTIMES 
22% = MIDS (2H$,23 + 2,2) 
ZZ = VAL (22#): GOSUB 10425 

IF Z2Z »> 1 THEN PRINT " ";2W$ + "S 
IF 22 = 1 THEN PRINT * “;2W$; 
PRINT : PRINT PRINT "EN VOTRE AI 
MABLE REGLEMENT "“: PRINT ZK# 

PRINT : PRINT FLASH : PRINT “NOU 
VELLE VALEUR..CO/N)..7"3: GET 2% 
IF Z$ = "O" THEN HOME : GOTO 9000 
IF Z$ = "N" THEN GOTO 10850 

IF 285 < > "N" THEN GOTO 10405 
REM MODULE PRINCIPAL-GROUPE DE 
3 CHIFFRES- 

IF 22 = 0 THEN GOTO 10845 

IF ZZ < = 9 THEN 2X$ = * 1 4. ST 
R& (22): GOTO 10450 

IF 2ZZ € = 99 THEN 2X$ = " “ + ST 
R$ (22): GOTO 10450 

IF Z2 < = 999 THEN ZX = STR$ (2 
Z): GOTO 10450 

REM 
24H = LEFTS (2X$,1) 
ZL$ = ZAHS: GOSUB 10510 
ZAS = 2V$ 
2B$ = MID$ (2X$,2,1) 
ZV$S = ZR#$: GOSUR 10570 
2B$ = 2L$ 
2C$ = MIDS (2X$,3,1) 
ZU#$ = ZC$: GOSUB 10510 
2CE = 2V# 

GOSUB 10635 

RETURN 

REM CALCUL DES UNITES ET DES CE 
NTAINES 

IF ZU$ = "{" THEN 2V$ = "UN" 

IF 2US = "2" THEN 2U$ = "DEUX" 

IF ZV$ = "3" THEN 2ZU$ = "TROIS" 

IF ZUS = "4" THEN 2V$ = "QUATRE" 
IF ZV$ = "S" THEN ZU$ = "CINQ" 

IF ZU$ = "é" THEN 2V$ = "SIX" 

1F ZU$ = "7" THEN ZU$ = "SEPT" 

IF ZU$ = "8" THEN 2VU$ = "HUIT" 

IF ZU$ = "9" THEN 2ZV$ = "NEUF" 

IF ZU$ = "O0" THEN 2U$ = " * 

RETURN 

REM DRE D HE DE DE DE DE DE DE DE DE DE D DE EEE XX 
IF 2C$ = "UN" THEN 2B$ = "QUATRE-V 
INGT":2C$ = "ONZE": RETURN 

IF 2C$ = "DEUX" THEN 2B$ = “QUATRE 
—VINGT":2C$ = "DOUZE": RETURN 

IF 2C$ = "TROIS" THEN 2B$ = “QUATR 
E-VINGT*:2C$ = “TREIZE": RETURN 

IF 2ZC$ = "QUATRE" THEN 2B$ = "QUAT 
RE-UVINGT":2C$ = "QUATORZE": RETURN 
IF ZC$ = "CINQ" THEN 2B$ = "QUATRE 
-VINGT":2C$ = "QUINZE": RETURN 

IF ZC$ = "SIX" THEN 2B$ = “QUATRE- 
VINGT":2C$ = "SEIZE": RETURN 
RETURN 

REM DE DE DE D DE ÉD DE DE DE DE DEEE DEEE EX EE 
PRINT 24$:;" “;2T$;: GOTO 10845 
PRINT 2A$:;" ":;2T$;" ";2B$;: GOTO 1 
0845 

IF ZA$ = " " AND ZB$ = " " THEN P 
RINT 2C$;: GOTO 10845 

IF 2ZA$ = " " THEN PRINT 2B$;" ";2 


10840 
10845 
10850 


10570 
10575 
10580 
10585 
10590 
10595 


10600 
10605 


10610 
10615 
10620 
10625 
10630 
10635 
10640 


10645 
10650 


10655 
10660 


10éés 


10670 


10675 
10676 
10680 
10685 
10690 
10695 
10700 
10705 
10710 
10715 
10720 
10725 
10730 
10735 
10740 
10745 
10750 
10755 


10760 


C$:: GOTO 10845 

IF ZB$ = " " AND 2C$ = " " THEN P 
RINT 2A$:;" ":;2T$;: GOTO 10845 

IF ZC$ = " " THEN PRINT 24$;" "3,2 

T$:;" ";:2B$;: GOTO 10845 

PRINT ZAS;" ";2T#3;" ";2B$;" ";2C$; 
RETURN 

HOME : HTAB 17: VTAB 10: FLASH : P 

RINT "AU REVOIR": NORMAL : END 

REM CALCUL DES DIZAINES 

IF 2ZU$ = "1" THEN 2ZV$ = "DIX" 

IF ZV$ = "2" THEN ZU$ = "UINGT" 

IF ZU$ = "3" THEN 2V$ = "TRENTE" 
IF ZU$ = "dg" THEN ZU$ = "QUARANTE" 
IF 2ZU$ = "5" THEN ZVE = “CINQUANTE 
IF ZUS = "é" THEN ZV$ = “SOIXANTE" 
IF ZV$ = "7" THEN 2ZVU$ = “SOIXANTE- 
DIX" 

IF ZU$ = "@" THEN 2ZU$ = "“QUATRE-VI 
NGT * 

IF 2U$ = "9" THEN 2ZV$ = "QUATRE-VI 
NGT-DIX" 

IF 2V$ = "O0" THEN 204 = " * 

RETURN 

REM ÉKÉRÉRERÉEÉEÉERÉEÉÉEEERERERX 
IF ZA$ = "UN" THEN 2A$ = "":2T$ = 
"CENT": GOTO 10655 

IF ZA$S = " " THEN ZT$ = “": GOTO 1 
0655 

IF ZA$ < > " " THEN 2ZT$ = "CENT" 
IF 2B$ = " " AND ZC$ = “ “ THEN ZT 
$ = "CENTS": GOTO 10810 

REM RÉÉREEÉÉÉEÉRÉEREREÉEEEÉX 

IF 2B$ = "DIX" THEN GOSUB 10690: 
GOTO 10820 

IF ZB$ = "SOIXANTE-DIX" THEN GOSU 
B 10730: GOTO 10820 

IF ZB8$ = "QUATRE-VINGT" AND 2C$ = 
" * THEN 2ZB$ = "QUATRE-VINGTS": GO 
TO 10815 

IF ZB$ = "QUATRE-VINGT-DIX" THEN 
GOSUB 10770: GOTO 10820 

IF 2B$ < > " " AND ZC$ = "UN" THE 
N 2C$ = "ET UN" 

GOTO 10820 

REM ÉLÉÉLRERÉEÉÉERRÉRÉELEEEXÉEÉEX 

IF 2C$ = "UN" THEN 2B$ = *“":2C$ = 
"ONZE": RETURN 

1F ZC$ = "DEUX" THEN 2B$ = "":2C$ 
= "DOUZE": RETURN 

IF 2C$ = "TROIS" THEN 2B$ = "":2C$ 
= "TREIZE": RETURN 

IF ZC$ = "QUATRE" THEN 2B$ = "":2C 
$ = "QUATORZE": RETURN 

IF 2ZC$ = "CING" THEN 2B$ = "":2C$ 
= "QUINZE": RETURN 

IF ZC$ = "SIX" THEN 2B$ = "":2C$ = 
“SEIZE": RETURN 

RETURN 

REM HR EE RE EE NN EN RE EEE EX EX € 

IF ZC$ = "UN" THEN 2B$ = "SOIXANTE 
“:2C$ = “ET ONZE": RETURN 

IF ZC$ = "DEUX" THEN 2B$ = “SOIXAN 
TE":2C$ = “DOUZE": RETURN 

IF 2C$ = "TROIS" THEN 2B$ = "SOIXA 
NTE":2C$ = "TREIZE": RETURN 

IF 2C$ = "QUATRE" THEN ZB$ = “SOIX 
ANTE“:2C$ = "QUATORZE": RETURN 

IF ZC$ = "CINQ" THEN 2ZB$ = "SOIXAN 
TE“:2C$ = "QUINZE": RETURN 

IF ZC$ = "SIX" THEN 2B$ = "SOIXANT 
E":2C$ = "SEIZE": RETURN 

RETURN 
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"The rumour mil” (le moulin à ru- 
meurs), c'est ainsi qu’on commence 
à désigner Apple dans le petit monde 
des fanatiques américains de la 
micro. Il faut dire, qu'à Cupertino, le 
siège d'Apple n'a jamais autant ré- 
sonné de ces fameuses rumeurs. A la 
fin de l'année 1984, John Sculley 
annonçait la sortie d'un Apple //x 
(disquettes de 3 pouces 1/2, nou- 
veau processeur, et une capacité mé- 
moire importante). Au début de l’an- 
née 1985, Steve Wozniak, le 
créateur de l'Apple // démentait le 
PDG, ‘ce projet est mort” disait-il 
lors d’interview donnée en Nouvelle- 
Zélande, et reprise dans le magazine 
britannique Apple User. Cette décla- 
ration a causé quelques bruits à 
Cupertino; et fin janvier Wozniak 
quittait Apple, pour se lancer dans la 
vidéo. Un départ qui n'a pas man- 
qué d’inquiéter tous les développeurs 
de programmes pour l'Apple //. Cet 
ordinateur serait-il bientôt délaissé 
par Apple ? 

Difficile à imaginer, quand on sait 
que le // s'est déjà vendu à plus de 
deux millions et demi d'exemplaires. 
Dans sa dernière interview, Steve 
Wozniak annonçait quand même 
plusieurs choses intéressantes. 


Le rôle assigné au //x serait en fait 
rempli par l'Apple //, et ce grâce à 
une carte. Une de ces cartes d'exten- 
sion qui font les beaux jours du //e. 
Celle-ci contiendrait le nouveau bi- 
processeur 65816. Quant à sa dispo- 
nibilité, le problème semble être de 
surmonter les défauts de jeunesse du 
65816 qui le rendent actuellement 
peu fiable, donc très onéreux. Mais, 
tous les processeurs ont connu ces 
défauts là... 

D'autre part, une augmentation de la 
mémoire qui porterait la capacité de 
l'Apple // à 256 Ko. En attendant, 
deux innovations semblent être bien 
plus proches. 

l s’agit d'abord d’une modification 
du clavier de l'Apple //e, qui devien- 
drait comparable à celui du //c. Avec 
notamment, la possibilité d'obtenir 
des chiffres, dès que la touche de 
verrouillage majuscule est enfoncée. 
La seconde nouveauté concerne les 
disquettes. L'Apple // abandonnerait 
(progressivement) le format 5 pouces 
1/4, pour adopter celui du Macintosh 
(3 pouces 1/2). On parle pour ces 
disquettes d'une capacité pouvant at- 
teindre 1,6 mégaoctets. Il s'agirait 
alors vraissemblablement de lecteurs 
de disquettes double face, double 
densité. Eh bien, même si le //e est 
toujours très demandé, le //c n’est 
pas pour autant délaissé. 


Du nouveau pour 
l'Apple //c 


Qui l’eu cru, l'Apple //c a aujourd’hui 
un écran plat à cristaux liquides ! Il 
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Micro-informations 


sera disponible dès le mois d'avril 
1985 pour un prix d'environ 6000 
Frs HT. 

Il ne fait qu'accroître la transportabi- 
lité de la machine. En effet, il pèse 
1,1 kg et mesure 13,8 cm de large 
sur 29 cm de long par 4 cm d’épais- 
seur. Il affiche 24 lignes sur 80 co- 
lonnes (en mode texte) et 560 points 
sur 192 lignes (en mode graphique). 
La technologie à cristaux liquides 
permet une consommation réduite et 
une alimentation par le connecteur 
DB15 du /'c. 

Pour plus de confort d'utilisation et 
un angle de vision optimum, l'écran 
plat de l'Apple //c est inclinable. Il 
doit être utilisé dans un environne- 
ment lumineux d'intensité suffisante. 


Les précautions d'utilisation : 

Il est conseillé d'éviter de l'exposer 
aux rayons solaires, de le démonter 
sous peine d’un endommagement 
qui serait peut-être irrémédiable. 


L'Apple //c connaît le DOS 3.3, le 
ProDOS, et pourra disposer de 
CP/M. Une carte est prévue à cet 
effet et permettra de développer et 
d'exécuter tout programme standard 
pour Apple //e sous CP/M, sans mo- 
dification préalable, et ce 30% plus 
vite que la plupart des cartes CP/M 
pour Apple //e. 

Le module est complètement trans- 
parent pour l'utilisateur. Cette carte 
comporte un coprocesseur Z80 et 
permet donc l'exécution directe de 
code Z80 ou 8080. De ce fait, elle 
est compatible à 100% avec CP/M 
version 2.23. 


Les programmes 
En France 


Contrôle X, qui a réussi l'exploit de 
vendre aux américains de Hayden 
son programme intégré CX MacBase 
pour le Macintosh, met la dernière 
main à un programme pour le // 
dont le nom de code est encore Pro- 
Base. Il s'agirait d'une gestion de fi- 
chiers doublée d’un tableur intégré, 
permettant le transfert des données 
des fiches vers le tableur. Utilisation 
de la souris, de 128 Ko, d'un écran 
totalement graphique, on en enten- 
dra encore parler. Les afficionados 
de CX Base 200, qui réclamaient 80 
colonnes, doivent déjà se réjouir. 


Le nouveau traitement de texte Gri- 
bouille est le premier, à notre 
connaissance pour Apple //, à couper 
automatiquement les mots, confor- 
mément à la grammaire française. Il 
a été développé, pour la société Ber- 
lingot, par Madeleine Hodé. Aide 
mémoire en 10 tableaux intégrés au 
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programme, glossaire de 1000 à 
22000 caractères, dispositif évitant 
les sauts de lignes ou de pages inop- 
portuns, impression de graphiques 
intégrés au texte, possibilité de définir 
ses propres caractères. On nous pro- 
met la facilité d'utilisation et la rapi- 
dité pour un prix de 1700 Frs. C'est 
bien alléchant. 


De l’autre côté de l’Atlantique 


Les programmeurs s’assoupiraient- 
ils ? Îl serait temps qu'un nouvel 
Apple les réveillent. On peut remar- 
quer un programme de jardinage, 
Ortho, qui aide à organiser un jar- 
din. 

Un programme d'apprentissage de la 
musique que l’on dit aisé: Magic 
piano d'EduSoft pour environ 50 
dollars. 


Deux nouveaux programmes de 
Beagle Bros. L'un (1.0. Silver) est un 
jeu de stratégie : il faut construire un 
super ordinateur en évitant le gang 
des “bugs” (30 dollars); l'autre est 
un utilitaire D.Code permettant de 
débugger et de gagner de la place 
dans les programmes (40 dollars). 


Pour exploiter au mieux la tablette 
Koala Pad, Koala propose des outils 
pour programmeurs, et un Graphic 
Exhibitor permettant de présenter 
les dessins réalisés dans une sé- 
quence (40 dollars chacun). 


Fabriquer des cartes d'identité à 
l'américaine, c'est possible avec le 
ID Maker de Scarlet Software. On 
peut même y incorporer son propre 
logo, choisir les caractères, il en coû- 
tera 50 dollars. 


Quelques accessoires 


Tout d’abord un petit gadget qui 
convertit la sortie lecteur de l'Apple 
/Ic aux normes des anciens lecteurs. 
Ainsi, on peut utiliser n'importe quel 
lecteur prévu pour les Il+ et //e sur 
le //c, grâce à Adapt a disc de 
Computer Accents (30 dollars). 
Ensuite, un capot de protection pour 
le clavier du //e, permettant de le 
protéger contre divers liquides, il 
s'agit du Hard Cover de Diversified 
Manufacturing (disponible aussi pour 
le Macintosh). 

Et surtout des lecteurs de disquettes 
3 pouces 1/2. Ils existent déjà ? Eh 
oui, c’est l'oeuvre de Haba. Ce lec- 
teur est livré avec des programmes 
de communication, des formats pré- 
difinis pour Appleworks, et un utili- 
taire permettant de transférer Apple- 
Works sur une disquette 3 pouces 
ne pour un prix d'environ 450 dol- 
ars. 
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Un nouveau confrère 


RS 232 est l'hebdomadaire informa- 
tique consacré aux petites annonces 
(gratuites). Toutefois, on y trouve de 
nombreuses rubriques (clubs infor- 
matiques, contact, jeux....). Il est né, 
depuis plus de six mois, pour faciliter 
l'expression et les contacts entre par- 
ticuliers. Ce magazine est indépen- 
dant et compte le rester. Distribué 
dans plus de 60 grandes villes, vous 
le trouverez dans les kiosques au prix 
de 3F. Un prix dérisoire qui lui per- 
mettra de vous aider et de se déve- 
lopper. 


Vive le Mac 


Le Macintoch devient l'enfant chéri 
des programmeurs. Même si aux 
Etats-Unis, les utilisateurs sont furieux 
d'avoir dû débourser 1000 dollars 
pour se payer le kit d'extension 512 
Ko (là-bas, compte tenu des baisses 
de prix, les nouveaux utilisateurs 
achetant un 512 Ko le paient moins 
cher que le 128 Ko plus la transfor- 
mation). Leurs vociférations couvrent 
même parfois les bruyantes campa- 
gnes publicitaires d'Apple... 

Voici donc un Mac qui est allé se 
rhabiller. Transformé en portable, il 
s'appelle maintenant le Mac Colby, 
et peut intégrer toute une série de 
périphériques : deuxième lecteur, 
modem, disque dur, lecteur de code 
barre... 


Voici surtout un disque dur interne 
révolutionnaire, il s'intègre à l'inté- 
rieur du coffret de Macintosh. C’est 
l'hyperdrive de General Computer. Il 
est d’une capacité de 10 mégaoctets, 
sur un disque dur de 3 pouces 1/2. 
Ainsi, les temps d'accès seraient 20 
fois plus rapides qu'avec une dis- 
quette et 7 fois plus rapides qu'avec 
un disque dur externe. Son prix est 
de $2800 avec l'extension 512 Ko et 
$2200 sans extension. 


Et puis, pour ceux qui ont une 
bonne vue, une rallonge (4 mètres) 
pour le câble du clavier. Elle est ven- 
due par Yas et coûte 10 dollars. 


Des produits 
comme s’il en pleuvait 


Tout d'abord, un processeur d’équa- 
tions, c'est le célèbre TK!Solver, mis 
au point par les inventeurs de Visi- 
calc. Il remodèle des équations jus- 
qu'à trouver les inconnues . Avec 
TK'Solver, les inconnues, connaît 
plus! Ce programme existait déjà 
pour d’autres ordinateurs, il prend sa 
pleine valeur sur Mac. D'une éton- 
nante rapidité de calculs, il va faire le 
désespoir (mais aussi le bonheur) des 
professeurs de mathématiques. Ce 
programme permettant de résoudre 
quasi instantanément et de façon 
magique des problèmes (pour les- 


quels il fallait des journées entières 
de travail) est promis à un bel avenir. 
Il pourrait même en inciter certains à 
acheter un Macintosh. Il est vendu 
3500 Frs par Software Arts. 


MacFortran est une implémentation 
sur Macintosh du Fortran ANSI 77. Il 
permet de développer des applica- 
tions utilisant le système de gestion 
de bureau. Il contient un debugger 
symbolique au niveau source et une 
routine VIRTUAL permettant aux ta- 
bleaux plus grands que la mémoire 
d'être gérés en mémoire virtuelle sur 
disque. 

Il autorise la programmation structu- 
rée avec sous-programmes, fonc- 
tions, procédures... (très proche du 
Pascal). Son prix est d'environ 5800 
Frs HT. 


MacPlot est un logiciel conçu pour 
travailler avec MacDraw, mais ac- 
cepte les graphiques de Chart, Mac- 
Project, CX MacBase.….. Il analyse 
l'image et la trace avec plusieurs cou- 
leurs et/ou épaisseurs de traits. 
L'échelle du document original est 
respectée mais peut être modifiée, la 
vitesse est paramétrable selon le type 
de support (papier, film). Il se 
connecte sur le port modem du Ma- 
cintosh. Les deux logiciels cités ci- 
dessus sont distribués par Alpha Sys- 
tèmes. 


LaserWriter est l'imprimante à laser 

haute résolution qu'annonce Apple. 

Elle est très différente des autres im- 

primantes à laser. En effet, elle se 

compose de trois éléments princi- 

paux : 

® un ordinateur équipé d’un proces- 
seur MC68000 avec un mégaoctet 
et demi de mémoire centre et 
512 Ko de ROM (c'est le plus gros 
ordinateur qu'Apple ait jamais 
construit). 

e l'impimante à laser Canon LB- 
CX210 

e le langage de 
PostScript. 

LaserWriter sera disponible en 

France en Juin 1985 et son prix sera 

d'environ 70 000 F. 


Appletalk est un réseau personnel, 
d'une grande simplicité d'installation 
et d'utilisation. Il permet d'intercon- 
necter des Macintosh (32 au maxi- 
mum sur une distance de 300 
mètres), par le biais de simples 
câbles bi-fils, afin de faciliter les 
échanges d'informations et les trans- 
ferts de documents. Il offre la possibi- 
lité aux utilisateurs de partager des 
ressources communes, tel un disque 
de grande capacité ou l'imprimante 
LaserWriter. Il est prévu pour 
communiquer avec d'autres réseaux 
ou ordinateurs centraux. Il est entiè- 
rement géré par l'intelligence de cha- 
que élément. Ceux-ci pouvant être 
des Macintosh 128K — 512K — XL 
(Lisa), des périphériques... 


télécomposition 


Appletalk sera disponible en France 
vers le mois de Juin pour un prix in- 
férieur à 500 Frs par connexion. 


MacBooster est un nouveau logiciel 
qui apporte un plus quant au confort 
d'utilisation du Mac 512 Ko. Il per- 
met de diminuer les temps d'accès 
aux documents les plus fréquemment 
employés. Il offre à l'utilisateur la 
possibilité de choisir la taille mémoire 
allouée et les lecteurs de disquettes à 
desservir. MacBooster reste en mé- 
moire; ainsi, les portions de fichiers 
les plus référencées sont recopiées en 
mémoire de façon à obtenir un accès 
presque immédiat. 

MacBooster est compatible avec 
toutes les applications qui accèdent 
aux disquettes au moven du système 
de fichiers standard du Macintosh. Il 
fonctionne selon les principes des 
anté-mémoires et des systèmes de 
migration de fichiers. L'utilisation de 
MacBooster ne modifie pas le 
contenu de la disquette. Ce logiciel a 
été développé par Jean-Luc Delatre. 


MacPublisher, distribué par Sono- 
tec permet de réaliser une lettre ou 
un journal, de façon spectaculaire. 


Un nouveau traitement de texte bri- 
tannique Macauthor d’'Icon Techno- 
logy permet de choisir facilement le 
style d'écriture d’un document, de 
réaliser des documents de 698 
pages, d'insérer dans le texte des ca- 
ractères inhabituels, musicaux... 


À propos de traitement de texte, et 
en attendant Word (disponible au 
printemps), MacWrite version 3.2 de- 
vrait être bientôt disponible. A noter, 
la possibilité de stocker et surtout 
d'imprimer des documents de 65 
pages. Le numéro de la page en 
cours indiqué sur l'ascenseur, un 
choix de menu permettant d’aller di- 
rectement à une page donnée, la 
possibilité de centrer ou de justifier 
individuellement un élément du 
texte … 


La version améliorée de Think 
Tank pour 512 Ko, est là. Elle pos- 
sède, enfin, toutes les qualités de la 
version de l'Apple //, et notamment 
les paragraphes, la possibilité d’obte- 
nir des documents de 35 pages, d'y 
incorporer des graphiques ou des 
dessins. Une version complètement 
différente de celle pour le 128 Ko. 


Désormais le Lisa s’appellera Macin- 
tosh XL. Ce nouveau nom symbolise 
la parfaite adaptation de Lisa à l’en- 
vironnement de Macintosh. Il utilise 
tous les logiciels du Macintosh et est 
totalement compatible avec les nou- 
veaux produits annoncés par Apple 
(Appletalk, Laser Writer). 


Et, puis, pour l’automne un match 
au sommet s'annonce passionnant. 
L'équipe dirigée par Paul Lutus, qui 
a créé Appleworks est passée chez 
Microsoft et y prépare un programme 
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intégré pour le Macintosh, qui pour- 
rait concurrencer le célèbre Jazz de 
Lotus, déjà créateur de 1, 2, 3 pour 
lIBM PC. L'année Mac s'annonce 
décidément bien. 


Les livres 


Les produits d'Enseignement Assisté 
par Ordinateur nous envahissent. 
Chez Magnard : 

— Sésame (230 F) est destiné à ap- 
prendre les rudiments du Basic aux 
enfants. 

— Le Basic (990 F), Racines verbales 
(490 F), Homophones (490 F), Logi- 
que et Math (560 F). Ces produits, 
d'origine canadienne, nous semblent 
dans l’ensemble bien faits, si ce n'est 
pour le dernier qui aurait mérité 
d'être traduit du français canadien en 
franco-français. 


— Macintosh, modes d'emploi, de 
William Skyvington, Seuil / La Re- 
cherche, 150 F. Traduction. C’est le 
énième livre d'initiation au Macin- 
tosh, à croire que les pauvres ache- 
teurs de ce matériel sont totalement 
incapables de lire les notices pourtant 
bien faites d'Apple. A part les classi- 
ques MacWrite, Paint, Multiplan et 
Chart, on y trouve une présentation 
de MacDraw et MacProject. Un petit 
plus par rapport aux livres qui n’en 
parlent pas. 


— Apple, modes d'emploi, de Wil- 
liam Skyvington, Seuil / La Recher- 


En ce qui concerne l'article sur le 
"Disque Virtuel 64K”, publié dans 
Pom's 14, je me demande s'il est 
possible d'utiliser une carte d'exten- 
sion 128 Ko comme disque virtuel. 
et de faire tourner un programme 
comme CX BASE 200 ou PFS. 


Mr François Fossat - Immeuble Le 
Tilleul - 74 bd Loius Roux - 06700 
Saint Laurent du Var 


Le disque virtuel est fait pour fonc- 
tionner avec le DOS 3.3 et les pro- 
grammes ‘tournant’ sous ce sys- 
tème. Par conséquent, les 
programmes CX BASE 200 et PFS, 
ayant leur propre système d’exploita- 
tion, ne peuvent utiliser le disque vir- 
tuel proposé dans Pom's. 





Est-il possible de copier des disquet- 
tes formattées sous Pascal UCSD ou 
CP/M à l'aide du programme 
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che, 110 F. Traduction. On retrouve 
le même principe de description de 
logiciels standards mais, ce qui est 
moins fréquent, appliqué à l'Apple //. 
Il. s’agit principalement de modes 
d'emploi fort résumés (mais sans 
fiche synthétique ni glossaire) d’Ap- 
ple Writer, Quick File, Multiplan et 
Business Graphics, avec une touche 
de Calvados. 


— 250 questions sur la micro-infor- 
matique de Ilya Virgatchik, Marabout 
service. Les questions sont classées 
par thèmes: généralités, achat et 
maintenance, questions techniques, 
systèmes d'exploitation,  périphéri- 
ques, langages, programmation, pro- 
grammes d'application, jeux / ensei- 
gnement. Heureusement, un index 
de quatre pages permet un peu de 
s'y retrouver. J'aurais préféré un 
sommaire détaillé avec la liste des 
questions, afin de pouvoir mieux or- 
ganiser la consultation et la lecture. 
Tel qu'il est, ce livre est malheureu- 
sement peu pratique à lire pour ré- 
pondre aux questions qu’on se pose, 
puisqu'on ne peut les connaître 
qu'en le lisant de bout en bout … 


Adresses 


Contrôle X - Tour Maine Montpar- 
nasse - 33 ave du Maine - 75755 
Paris Cedex 15 


Berlingot - 18 rue Elile Duclaux - 
75015 Paris 

Ortho Information Services - 575 
Market St - San Francisco - CA 
94105 

EduSoft - PO Box 2560Q - Berke- 
ley - CA 94702 

Beagle Bros - 3990 Old Town Ave 
- suite 1026 - San Diego CA 92110 
Koala - 3100 Patrick Henry Drive - 
Santa Clara CA 95052 

Scarlet Software - PO Box 11166 
Milwaukee - WI 53211 

Computer Accents - PO Box 5307 
Kingwood - TX 77325 

Diversified Manufacturings - 
4722 &th Street - Wichita KS 67208 
Haba Systems - 15154 Stagg 
Street - Van Nuys CA 91405 1025 
Colby Computer - 849 Indepen- 
dance Ave MountainView - CA 
94043 

General Computer - 2155 First 
street - Cambridge MA 02142 

YAS - 1525 N Elston Chicago - IL 
60622 

Jean-Luc Delatre - 7, rue de Ram- 
bouillet - 78120 Clairefontaine - Tél 
(3) 484.50.51 

Apple Seedrin - ZA de Courta- 
boeuf - Ave de l'Océanie, BP 131 - 
91944 Les Ulis - Tél (6) 928.01.39 
Alpha Systèmes - 16 rue de Saus- 
sure - 75017 Paris - Tél 763.59.81 
RS 232 - 109 rue G. Lauriau - 
93100 Montreuil - Tél 859.71.01 


Courrier des lecteurs 


COPYA se trouvant sur la disquette 
Master DOS 3.3 ? 


Mr Stéphane Lévy - 142 rue Gam- 
betta - 45120 Chalette 


Le programme COPYA vous permet, 
effectivement, de copier toutes dis- 
quettes  formattées sous Pascal 
UCSD, CP/M, ProDOS... 





A propos de “Disk Manager 2”, j'ai- 
merais savoir quel est le niveau de 
son utilitaire ‘Ultra Copie” par rap- 
port à Locksmith 5.0 ? Est-il en fran- 
çais ? 

Mr Gilbert Roche - Quartier Jumel, 
Saint Julien du Serre - 07200 Aube- 
nas 


Ultra Copie et Locksmith ne sont pas 
comparables. 

Locksmith 5.0 permet, entre autres, 
de copier certaines disquettes proté- 
gées, de copier très rapidement des 


Olivier Herz 


disquettes formattées en 16 ou 8 sec- 
teurs (DOS 3.3, PreDOS, CP/M, 
Pascal). 

Ultra Copie, quant à lui, permet de 
copier des disquettes formattées en 


. 16 secteurs : soit normalement, soit 


sélectivement en ne copiant que les 
secteurs qui sont effectivement utili- 
sés. Ce procédé est d'autant plus ra- 
pide que la disquette originale est 
moins remplie. 


Le Disk Manager est, à notre 
connaissance, un utilitaire sans précé- 
dent. Il permet d'accéder directement 
aux secteurs de la disquette pour 
écrire des programmes en Basic agis- 
sant sur la disquette (gestion de cata- 
logues, utilitaires...); et ce, depuis le 
Basic. De telles choses n'étaient réali- 
sables qu'avec des routines en as- 
sembleur. 

Le Disk Manager est l'oeuvre d’un 
lecteur français de Pom's, il est donc 
en français, ainsi que sa documenta- 
tion. 
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PES EU ETES RAETE 


Par quel biais peut-on réaliser le dé- 
placement du DOS vers la carte lan- 
gage 16 Ko ? 

Mr Pradavrol - 21 rue Guenegaud - 
75006 Paris 


De nombreux logiciels, le plus sou- 
vent vendus avec une carte d'exten- 
sion 64 ou 128 Ko, permettent de 
placer le DOS sur la carte langage. 
Le programme MEMORY MASTER, 
par exemple, qui est fourni avec la 
carte LEGEND (testée dans Pom's 
5). DIVERSI DOS (DOS 3.3 amé- 
lioré) possède un utilitaire, DDMO- 
VER, qui le reloge sur la carte lan- 
gage. Et enfin, plusieurs revues ont 
publié des programmes déplaçant le 
DOS sur la carte 16 Ko. La plus cé- 
lèbre est CALL A.P.PLE (CALL 
A.P.PL.E in Depth : All about DOS), 
avec son programme DOS MOVER. 





Je souhaiterais avoir quelques éclair- 
cissements sur les entrées / sorties de 
l'Apple //e avec la carte 80 colonnes. 
J'essaie vainement de faire une copie 
d'écran 80 colonnes sur une impri- 
mante DMP. 


Maurice Gaston - Boussieyral - Saint 
André Allas - 24200 Sarlat 


La méthode suivante permet de réa- 
liser une copie d'écran en 80 colon- 
nes. Toutefois la place mémoire né- 
cessaire est importante. 


1-Tranférer la page texte dans la mé- 
moire à l'endroit souhaité ($2000 — 
$23FF par exemple). Pour ce faire, 
utiliser la routine MOVE du moniteur 
($FE2C), qui déplace la zone délimi- 
tée par $3C-$3D et $3E-$3F vers la 
zone commençant en $42-$43. Ceci 
permet d'éviter d'éventuels problè- 
mes liés au DOS lors du transfert 
vers l'imprimante. 

2-Transférer la page texte de la mé- 
moire auxiliaire dans la mémoire 
principale à l'endroit souhaité ($2400 
— $27FF par exemple). Pour ce 
faire, on utilise la routine AUXMOVE 
du moniteur ($C311), qui déplace la 
zone délimitée par $3C-$3D et $3E- 
$3F vers la zone commençant en 
$42-$43. De plus, il faut forcer le bit 
de retenue du 6502 à 0 (CLC) pour 
indiquer que le transfert se fait de la 
mémoire auxiliaire vers la mémoire 
principale. 

3-Il ne reste plus qu'à tout envoyer à 
l'imprimante en faisant attention à la 
disposition des octets de la page 
texte, et en sachant qu'un octet sur 
deux vient de la mémoire principale, 
tandis que l’autre provient de la rné- 
moire auxiliaire. 


Vous pouvez vous inspirer de l’article 
de Christian Guerin, publié dans 


Pom s 3, en ajoutant respectivement 
$1C00 et $2000 aux adresses de 
début de ligne de la page provenant 
de la mémoire principale (qui 
commence en $2000) et de celles 
provenant de la mémoire secondaire 
(qui commence en $2400) 


Une deuxième solution, plus écono- 
mique en temps et en place mé- 
moire, serait d'utiliser le Basicium. Il 
vous permettrait de réaliser une 
copie d'écran texte grâce à la 
commande JH. 





DIF.OBJ, paru dans Pom's 11: Pour 
éviter un OUT OF MEMORY avec 
des programmes Basic comprenant 
plus de 160 lignes, il faut taper, 
depuis le moniteur : 

93D1 : B8 B4 B4 

93D4 : 68 68 

93D6 : 4C 54 93 

Ainsi, la pile sera mise à jour et les 
appels à LIST ne poseront plus de 
problèmes 


Yvan Kœænig - Céramiques Gerbino - 
rue du Stade - 06220 Vallauris 


J'ai lu dans Pom's 15 que l'astrologie 
intéressait un de vos lecteurs, Joël 
Moreau, et je suis ravi de pouvoir lui 
répondre. J'ai développé un logiciel 
sur le sujet: il s’agit de ‘Astrologie In- 
terprétation Rationnelle”. Cette ver- 
sion se compose d'une disquette 
contenant, sur une face les fichiers 
des diverses influences astrologiques 
(environ 100 Ko) et des modules de 
calcul d'interprétation sur l'autre. 
Ceux-ci sont principalement écrits en 
Basic compilé (très peu d'assem- 
bleur). Le prix est très raisonnable. 
Pour plus de renseignements n'hési- 
tez pas à me contacter 


Paul Franceschi - 5 rue de la Forêt 
Sainte - 67500 Haguenau 





Grâce à un programme paru dans 
Pom's 7, j'ai pu réaliser un pro- 
gramme de calculs financiers relative- 
ment complet : taux d'intérêts, ren- 
dement d'investissement à flux de 
montants non égaux et non réguliers 
(portefeuille de boursier, par exem- 
ple), achat d'obligations, effet de dé- 
duction fiscale... Compte tenu de la 
spécificité du problème, je ne 
m'étendrais pas. Que les lecteurs in- 
téressés me contactent. 


Jean Michel Quetin - 8 allée de la 
Boissière - 92350 Le Plessis Robin- 


son 





Vends un Apple IL extension 16K. 
deux drives. un moniteur noir et 
blanc, joystick et paddles au prix de 


10000 Frs et une imprimante OKI 
84. 200 cps. 132 colonnes au prix 
de 7000 Frs (valeur 11000 Frs). 


Philippe Zitoun - 11 allée de la Pavil- 
lone - La Celle St Cloud 


Ayant programmé un jeu d'aventu- 
res, j'ai eu la folle idée de le faire 
éditer (à 16 ans, on a encore des il- 
lusions). D'autres l'avaient fait avant 
moi. Je prenais donc de nombreux 
contacts. Toujours la même réponse : 
envoyez votre disquette. Ediciel, qui 
favorise la création française en tra- 
duisant les plus mauvais programmes 
américains, m'a même répondu que 
les jeux d'aventures ne l'intéressaient 
pas. Et puis un beau jour, miracle, 
arrive chez moi une lettre, de 
l'agence Octet, m'invitant aux ‘Jour- 
nées du Logiciel”, ministère de la 
culture à l'appui. Emportant mes 
rêves de célébrité et mes disquettes, 
je m'y rendais. À l'entrée, on me re- 
mettait un superbe badge avec 
‘François Coulon - Créateur”. Je 
commencais à m'y croire... 

J'ai erré parmi les stands, hélas rien 
d'intéressant pour moi, sauf peut-être 
une proposition d'Exelvision m'of- 
frant la possibilité d'adapter mon jeu 
à leur matériel. Je découvrais, avec 
l'arrivée de certains journalistes, un 
des buts de l'organisation : s'écouter 
parler entre gens biens, l'informati- 
que est à la mode, n'est-ce-pas ? 


Après la remise des prix, nous par- 
tions, mon père et moi. J'avais perdu 
une demi journée et ramassé des 
adresses que je possédais aupara- 
vant. 

J'ai donc décider de ne jamais faire 
éditer quoi que ce soit, et de prouver 
que je n'ai pas besoin d'éditeur pour 
faire connaître mes produits. C'est ce 
pari que j'aimerais pouvoir tenir, 
grâce à vous. Vous Pom's, en pu- 
bliant cette lettre, vous montrerez 
aux éditeurs qu'ils ne sont pas indis- 
pensables. Vous lecteurs, en achetant 
mon programme, vous prouverez 
que je n'ai pas besoin d'eux pour ga- 
gner de l'argent avec le fruit de mon 
travail. Je n'ai pas besoin d'eux, mais 
j'ai besoin de vous. 

Pour tout autre renseignement sur ce 
jeu (1928) et sur le prochain n'hé- 
sitez pas à me contacter. 

Les opinions que j'exprime n'enga- 
gent, bien entendu, que moi. 
François Coulon - 4 route de Ham - 
80190 Nesle 


Votre lettre est un témoignage prou- 
vant, une fois de plus, qu'il est diffi- 
cile de s'imposer comme créateur à 
16 ans, d'autant plus que la 
commercialisation d’un produit (quel 
qu'il soit) ne peut se faire que dans 
le cadre d'une structure adaptée. 


Imprimerie Rosay, 94300 Vincennes. Imprimé en France. Dépôt légal : Mars 85. N° d'ordre 2476. 
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Vous... 


Toujours dans l'optique de sastisfaire nos lecteurs, voici un 
petit questionnaire qui nous permettra de savoir ce que vous 
pensez de Poms. Ainsi, pour la réalisation des prochains 
numéros, nous prendrons en considération toutes les 
réponses et remarques que vous nous ferez parvenir. 

Nous procèderons à un tirage au sort, afin de déterminer les 
10 bulletins gagnants. Ceux-ci bénéficieront d'un 
abonnement avec disquettes. Pour participer à ce tirage, I] 
vous suffit de nous renvoyer ce petit questionnaire avant la 
fin du mois d'avril. 

Ce bulletin pourra, bien sûr, rester anomyme. 


Votre âge : moins de 15 ans [] 

de 20à24ans [] 

de 355à 45ans C] 

féminin [] 
un Apple [+ [7 
un Apple //c [] 
un Mac 128K [] 
un Lisa | 


de 15 à 19 ans C] 
de 25 à 34 ans [] 
plus de 45 ans TJ 


masculin [me 


un Apple //e [] 
un Apple /// [] 
unMacSI2K [] 


Sexe : 
Vous utilisez : 


Vous l'utilisez : chez vous C2 à votre travail C] 


QUENE 5 Lara vemear ee cs 
Date d'aChAt ;...1iins in os nn ne cos lunes SU 
Vous disposez de : 
Her lecteurs 
une imprimante  marque.......... modèle ....,....... 
une carte 80 c. marque.......... modèle ............ 


une carte couleur [] 
une table traçante[] 


une carte CP/M (] 
un disque dur C1 


Vous utilisez votre matériel pour : 
votre travail [] une gestion personnelle [TJ] 
jouer [ES le plaisir de programmer [] 


En programmation, votre niveau : 


débutant CO 
amateur averti ([] 


intermédiaire C 
haut niveau [| 


Quels langages pratiquez-vous aisément : 


Basic (] Pascal [] Forth ([] Logo [] 
Assembleur 6502 [] 65C02 C] 68000 C] 
Lisp ([] AULPRS 5 eum ar sCoishéacone dei 


Vous passez chaque semaine devant l'écran : 
moins de 2heures [] entre Set 8heures [] 
entre 9 et 16 heures [] plus de 16 heures C1 
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.… et pom'’s 


Combien de numéros de Pom's avez vous Iu......... 


Comment avez-vous connu Pom's : 
publicité parue dans une revue [C] 
Stcob, Micro-Expo, Apple Expo [] 
par un autre amateur C1 


kiosque CO 
boutique [] 


Combien de personnes lisent votre Pom's............ 

votre opinion, de 5 (très bon) à O (très mauvais), sur 
le niveau général de la revue  ...... 

sa présentation 

l'intérêt des programmes 

l'originalité des programmes 

la clarté des articles joints 


l'intérêt pédagogique de ces articles 


les bancs d'essais 

les micro-informations 

les disquettes d'accompagnement 
Ce que vous préférez dans chaque numéro : 


Pom's : 


NOM er ne Re rer des 
PEOROM die oitec ins scae 
Adresse : 


Ville : 
Code Postal : 





& HS nr 4 
PR ee 


Mr ue 
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DISQUETTES (sauf précision, toutes les disquettes fonctionnent sous DOS 3.3 sur Apple II + , //e ou //c) 


. Pomsn 
.Pomsn 
.Pomsn 
. Pomsn 
.Pomsn 
. Pom'sn 
(cf. Pomsn 
.Pom'sn 
. Pom's n° 15) 
MACINTOSH (cf. Pom's n° 14-15-16) 
MACINTOSH (cf. Pom's n° 17) 
(cf. Pom's n° 15) 
DEMO MAX THE GOLBE TROTTER … (cf. Editorial) 
MAX (moniteur étendu) (voir p. 64) 


RECUEILS 


N° 1, recueil des revues 1 à 4 
Disquettes d'accompagnement des numéros 1 à 4 
N° 2, recueil des revues 5 à 8 
Disquettes d'accompagnement des numéros 5 à 8 


ANCIENS NUMEROS 
REVUES 


REVUES 


























DISQUETTES 


























| 11 12 

C]16 []17 
ABONNEMENTS 

POUR 6 NUMEROS à partir dun. 


ABONNEMENT SANS DISQUETTES 
ABONNEMENT AVEC DISQUETTES (Apple II + , //e, //c) 





140,00 F 
150,00 F 
140,00 F 
190,00 F 


200,00 F 
480.00 F 


TOTAL TTC 
Supplément expédition 
par avion à l'étranger 


MONTANT 
DU REGLEMENT 


Ces tarifs comprennent l’envoi postal en France métropolitaine. CEE et Suisse 
Supplément avion hors CEE : 10 F par numéro et/ou disquette 





Envoyez ce bon et votre règlement à (Abonnés : n'oubliez pas de joindre l'étiquette-adresse). 


Editions MEV - 64-70, rue des Chantiers - 78000 VERSAILLES 


Nom 


Adresse 





Pom's n° 17 


C'est pour pouvoir faire face à une 
demande plus de dix fois 
supérieure à ce qui avait été prévu 
qu'Hello a décidé de lancer une 
nouvelle fabrication de 2 000 
cartes Apple-Tell. Avantage de 

la grande série : de très sensibles 
réductions de coût sur le prix des 
composants LSI et VLSI, 
permettant de faire chuter de plus 
de 20 %o le prix de la carte 
Apple-Tell. 

Le modem vedette de votre Apple, 
déjà couronné Pomme d'Or 1983, 
a suscité en 1984 trois nouvelles 
Pommes d'Or, récompensant trois 
des (très nombreux) logiciels que 
ses utilisateurs ont déjà dédiés 

à Apple-Tell : 

—> MICRO-KIDS : serveur 
monovoie pour les établissements 
d'enseignement. 

— VASA : outil de composition 
de pages vidéotex incluant 

un serveur arborescent complet. 
— TÉLÉBASIC : Basic télécom 

et vidéotex, destiné à la création 
de serveurs et de terminaux 
automatiques. 





Parmi les autres logiciels créés pour 
Apple-Tell : 
— TELEPOM : enrichissement 
du Basic (60 instructions nouvelles) 
permettant de créer soi-même 
des serveurs (Ascii et vidéotex), 
des messageries ou toutes applications 
télématiques. 
—> ASCII EXPRESS : outil général 
de télécom destiné à permettre 
l'impression et le stockage des 
données reçues, incluant un 
émulateur universel de terminaux. 
— PROTEXT : éditeur-souris, 
permettant la composition (texte et 
dessins) de pages Télétel destinées 
à des serveurs. 
— FAKIR : serveur Ascii 
(messagerie électronique intégrée, 
incluant panneau d'annonces, 
annuaire des abonnés, 
téléchargement, horloge temps réel, 
mots de passe, console opérateur, 
etc.) 
— DISCOBOLE : copie de disquettes 
par téléphone (Dos, MemDos, Pascal, 
CP/M} 
— TRANSTEXT : convertisseur 
d'écrans (Haute Résolution 

Télétel ) 
—D BAS! : module-système 
permettant la commande du modem 
depuis le Basic, sous ProDos 
—> PROSPECTOR : générateur 
d'étiquettes-adresses par consultation 
automatique de l'annuaire 
électronique selon des choix 
socioprofessionnels et géographiques. 
— CALVA-KIT : consultation 
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automatisée du centre serveur 
“Calvados”. 

—> PELAGEE : serveur spécialisé, 
permettant la consultation d’un Apple 
à partir d'un réseau de minitels. 
(Deux versions : Basic/Dos 3.3 et 
MemDos.) 

—DNESTOR4 : serveur à QUATRE 
ACCÈS SIMULTANÉS, disque dur 

10 Mo, gestion automatique des 
touches de fonctions du minitel, 
arborescence et mots clés intégrés. 
—D \ESTORI : serveur monovoie 
(même caractéristiques que Nestor4 











… Les Serveurs sont servis ! 
APPLE-TELL COMPREND : 


e une carte Modem (avec terminal Ascii 
intégré) incluant un décodeur Télétel 

e Un logiciel d'émulation de terminal 
Minitel enrichi des fameuses trois 
fonctions dont l'absence est une tragédie 
quotidienne pour les utilisateurs 

de Télétel 

IMPRESSION (sur l'imprimante 

de l'Apple) 


STOCKAGE sur disquettes des pages 
consultées (formats Télétel ou Ascii), 
AUTOMATISME : interrogation 
automatique des serveurs (appel 
téléphonique, orientation Transpac, 
identification, choix successifs } 


enregistrement des données consultées, 


puis traitement et incorporation 

des données dans l'application 

(Ces procédures d'interrogation sont 
créées par l'utilisateur, sans aucun 
langage de programmation, grâce au 
mode APPRENTISSAGE d'Apple-Tell.) 
Enfin et surtout, une jonction est 
possible avec les outils de travail 
habituels (Apple- Writer, Visicale, 
Multiplan, PFS, Quick-File, 
compta facturation 
fichier, etc.) 


+ 
+ { 








CARACTÉRISTIQUES 

GÉNÉRALES : 

e modem 1 200 75 (Ccitt} et 300 full (standards 
Caitt et Bell}, à numérotation automatique 

e auto-Connexion. permettant la création de 












serveurs 400 ou ! 200 bauds 
e sorties : vidéo composite (X & B) et Péritel 
couleurs 
e enfichable dans nimporte quel slot libre 
de votre Apple 2° ou 2+ (48 K. un o 
disquette } ‘+ 
e transparence totale vis-à-vis 2 
h du svstènu 2° | 
’ HELLO 
5” Informatique 
ÿ" 1, rue de Metz 
’ 75010 PARIS 
5" Tél. : (1) 523.30.34 
>. Télex : FLASH 210 500 F 
‘ NOM une he 
‘ 
‘ ; 
7 Société 
Adresse. ............. 
Ville … RE 
de postal ; Tél... 
D Souhaite recevoir une documentation sur le système Apple-Tell 





LNDI VIDUEL 


TA TIQUE 


2 ner die 186 FB - Suisse : 7,5 FS - Canada#295 $C 
DOSSIER 


PLUS DE 200 ORDINATEURS 
TABLEAUX COMPARATIFS 











TOUS LES DERNIERS-NÉS 


LAS VEGAS : 
LE CHOC Ads 


LÉROUNE 
HP 150, ALICE 90 


23F EN VENTE CHEZ TOUS 
LES MARCHANDS DE 


JOURNAUX il 
Mars 1985 n°68 23F 





URL ES TEE à 


